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LABEL OOOQQOOOOPRINTEROOLOOUOOCC EA OBVECT/REALSFILE SOURCEFILE=SYMBUL/CANDEJ ENDS € OBVECT /4READ @ 
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COMMENT * TITLE? B85500/8570G MARK XI\y SYSTEM RELEASE * 00000,00 
* FILE ID? SYMBOL/CANDE TAPE ID: SYMBOLZ/FILEOOU * 00000101 
* THIS MATERIA S PROPRIETARY BURKCUGHS RPORA * OQO0Q0U102 
* AND IS NCT TO BE REPRODUCED» USEDs OR YISCLOSED * 00000403 
* EXCEPT In ACCORDANCE. WITH PROGRAM LINCENSE o UPON * 00000104 
* R A ON OC PA D 0000 0 Ree Se eee Senay 
* BURROUGHS CURPORATIUN? DETRUIT» MICHIGAN 68232 * 00000106 
* * 00000107 
* COPYRIGHT (C 9749 {92 BLRRUUGHS CORPURA’ N * O00 004 OB se ee 
* AAI20206 AA386657 * 00000109 
BEGIN % CANDE/TSHARER LAST REVISION 11°72 00001000 
DEF IN NISHED s O08 set re a ee. O01 00-2 en, 
DEF INE VHELLO = O18} 0c00120C 
DEFINE VBREAK = 024; 00001300 
DEF INE VWR = 0383 00001400 aan 
DEFINE VLINECLEAR = Oak; 00001500 
DEFINE VO ISKCHUNK = O9#3 00001600 
DEFINE | VDISCONN = 06# OO1700 2 
DEF INE VINPUTDATA = O78} 00001800 
DEF INE VBREAKCLEAR = 084; 00001900 
DEFINE VRESTARTIT = O98} OIG OOT 95 Cio oh 
DEFINE VMCPUSE = 1083 00002000 
DEFINE VLISTNEWS = 1245 % DUMMY CALL IN FITHERE 00002050 
DEFINE  VMCPMSG = #3 See OUD AAO 8 oo ecs tel Gi tee etc nes 
DEFINE VCOOLIT = 154; 000021410 
DEF INE VMCPOK = 16%; 00002120 
DEFINE VTEACHER = 25#3 rte VOOU 8 200 as oe ee 
DEFINE VINPUT = 268; 00002300 
DEFINE VDISPATCH = 278; 00002400 
_OEF INE VOISKREAD = 2883 002 Re ess ee San 
DEFINE VRESTART = 29%; 00002600 
DEF INE VOOPS = 50; 00002700 
DEF INE VDOGCATCHER = 344%; O0O002800 
DEFINE VCOMPILEIT a 38%; 00002900 
DEFINE VSETUPFILES 3 3383 00003000 
DEF IN RROR : = #3 03100 
DEFINE VCLOSEWORKTABLE= 34543 00003200 
DEFINE VCHNGPSWD = 36%; 00003300 
DEF INE M 33743 0000330 
DEFINE vce = 3643 00003310 
DEFINE VCHNGNAME = 39%; 00003312 
DEF IN MONTY TORR 3 ABKS 00003 ate ret S8s ta, 
DEFINE VSET = 41#; 00003316 
DEFINE VSSFILE = 4a#k; 00003318 
DEFIN VEQUAT = 4383 ABE Q 00003320 
DEF INE VSTATUSCHECK = 448; 00003330 
DEFINE VSSMSG @ 5083 00003400 
DEF INE VPOIT “se SiR? 00003500 
DEF INE VCOPY = 5283 00003600 
DEF INE VSEQ = 538; 00003700 
DEF INE VBYE = 548; 00003800 tvs te te 
DEF INE VMAKE = 53%; 009003900 
DEF INE VLIST = S68) 00004000 
DEF INE VEXECUTE = S78; 00004100 > 
DEFINE VLOAD = 5883 00004200 
DEFINE VSAVE s 5983 00004300 
DEF INE VREMOVE = 6185 00004500 
DEF INE VCHANGE | = 6283 00004600 
DEFINE VRENAME = 6438} 009004700 
DEF INE WHATS = 6443 0000480 
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DEF INE VTYPE = O54; 00004900 
DEF INE VGUARD = 67#; 00005100 
DEF IN K = 688; ane OOU0R200 
DEFINE VTAPE = 692%; 00005300 
DEFINE VPRINT =. 70#3 00005400 
DEFINE VCHARGF = 7ie#; 
DEF INE VSCHEDULE 3s 728; 00005500 
DEFINE VSTATUSSTOP = 73#; 00005609 
DEF IN 3 = 74#; es Aas Seance PS ae ee OOOOS57TOO 
DEF INE VUPDATE 2 age 00006390 
DEFINE VREPLACE =z 76 00006395 
DEF IN a UAL CbALLA sa tae sad:. ck PON cadilse ED CASE STMTS = 0006400. 
“% 00006500 
INTEGER COMMONS 00006600 
SAV BE a OS go OOOO ea tia 8 
DEFINE STUFF sia; 00006800 
DEFINE FF = C1i8tiS)#» cr = [33215] 4; AF FIELD & C FIELD 00007600 
DEF IN _-—__-__CR8O#» LFS3hiooooi"#s CRLF si#, NOCRKLFe3"iggo00"#s sss gn 007700. 
DEF INE NQ = NOT#3 00007800 
DEFINE MAXLINES $486 #3 2 NO OF LOGICAL LINES TO BE HANDLED. 00007900 
DEF IN __ IDLETIME = 360000#3 _._.. 00008000. 
DEF INE LLWORDS 310043 * NO OF wORDS PER LOGICAL LINE. 000046100 
DEF INE TBLSZ =2043 & WRKTBL SEGS MAX (417+4CHKPOINT), 00008200 
REA _______DISKBOTTOMS se FOR DIRECTORY SEARCHES, _____ 90008300 _ 
00008400 
DEFINE NUMOFVERBS = 49#» 00008500 
) = if ok a ON 01° 07-7.1010 ma 
000087006 


BOULEAN FLAGS; 00008900 
% 00009000 
DEFIA WEC SEDATA = FLAGS»[1:1) # 90009100 2 
» NOOATA = FLAGSe({2t1) # 00009200 
» NODATAREQUESTED * FLAGS,£3%1] # 00009300 
_ » NOFILES = FLAGS «(4%1) # —~ 90009400 
NOTANKS = FLAGS»(5!i1)] # 00009500 
» WENEEDTCCUOLIT = FLAGSe(631)# 00009510 


TIMETOCKLINES 


FLAGS e(7iLlis# 


—ooroenae 


SODOLEAN DOGS T RALATELELELLRELTLL VV 00009600 
; 00009700 
DEFINE TeLeT ype = Of, 00009730 
CONRAC = 1d» 00009740 
TC500 = 2a» 00009750 
__ BIOS = 343 00009760 
SPAGE 90009800 
% : . ~ 90909900 
SAVE ARRAY TTYINPUT Lor2933 A INPUT QATA FROM LINEMTNCE, 00010000 | 
SAVE ARRAY WORK CO0:59)3 % 170 PRUCESSING AREA 00010100 
REAL DATAOFFSETTs DaATaWwORUS» DATADISKLOC; 00010200 
REAL ROWINUSE sDOGCATCHERS»RUWCOUNT» TIMENOWS 00010300 
REAL NUDCOUNT3 ‘00010350 
REAL MSGFICELOC; % CONTAINS ABS DISK LOc neerces 00010400 
REA TANKF I % DISK ADOR OF TANK/DISK, 00010500  _ 
REAL TANKSIZES % ROW SIZE UF TANK FILEe 00010600 
% VOID 00010700 
REAL LL ’ 4 LUGICAL LINE NO CURRENTLY BEING HANDLED. 00010800 
LLPREY , % LOGICAL LINE NO PREVIOUSLY HANOLED, 00010900. 
CLOCK ’ % CONTAINS PROCESSOR TIME USED. 00011000 
CLOCKPREVs & PREVIOUS PROCESSOR TIME USED 00011100 
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WAITBIT » %® WAIT INDICATOR FUR NEXTEVENT? 00011200 
REASON , % REASON FOR THIS EVENT ENTRY, ~ 90011300 
f\ OR z ONTALN 3 hat Y_ RES _—— 
1 DATE ’ %& DATE*"MM/OD/YY 00011500 
2 SPOCNTRL » % SPQ CONTROL VARIABLE ‘ 00031600 
3 A ; N ROCEDURE NO. OR NEx JPERATIONe 000313700 © 
4 DOING , % CALLER"S CASE OR SWITCH VALUE, 00011800 
5 WANT ’ % REQUESTED OPERATION NUe 00011900 
6 R F 5 EWG “Re re See teehee a 
y BASE , % BASE OF LL SCRATCH AREA, 00012100 
: TEMP , % TEMPORARY WORDS USED BY A PROCEDURE. 00012200 
: ‘i HEING EEE 1s Vc Eee ne 
4 WAITFOR » % CONDITION REQ@D BEFORE RETURNING, 00012400 
4 PREVRCW » % POINTS AT LATEST RCW FOR THIS LINE, 00012500 
2} SREG ; E"STACK” REG DR FUR ACCESSING ARRAY WOSe 00012600  —s_—” 
a Rach 00012700 
@' REAL SCWs. RCW3 % STACK CONTRUL WORDs RETURN CONTRUL WORD. 00012800 
1s REAL STACKSIZE*sPROCESSLIMIT* JOLIMITs CORES IZEs COMMONVALUES Fee ee eee ee 
8 REAL WORKADRS»WORKENDADRS? % POINTERS TL WORK ARRAY 00012820 
ev” DEFINE &% 00012900 
be pets SS CWNATT BRUT LOE) Oe a 001 000 eh 
9 SCWWAIT © SCWeL1027] &s & 00013100 
SCWPREV #& SCW.L17%8) Bs % 00913200 
,  SCWBASE & SCW.f25!'6) @» e300 r—‘“‘i‘C:sit Eneg HO pita chiens ean PA Ao ein 2 Soe te 
p2 SCNDOING = SCW.L33°7) He & 00013400 
B3 SCWLAM = SCW,C4038) Ase & 00013500 
% 0 
RCWSREG © RCW.L03%8) #, & 00013700 
RCWPARAM-& RCWe(1137) Bs 2% 00013800 
27 RCWTEMP & RCWeLi8i7] ¥, &% 00033900 
, RCWBASE #& RCWel2528)] B> 2 00014000 
RCWDOING © RCWeL33°7] He & 00014100 
RCWIAM = RCwW.C40:*8] Fe & 0001420 
DEFINE ESPTABLESIZE = 40#3 X INCREASE THIS IF "NO ROOM" ERRORS 00014300 
ARRAY ESPTABLECOSESPTABLESIZE]3 % ESP SEGMENTS FUR LABEL EQUATION 00014310 . 
ARRAY CTRANDBASE (0315]3 00014500 eS Se ett 
ARRAY DOGHQUSE COSMAXLINESJ,< 00014600 
ALPHA ARRAY VERBTABLE LO? 2xNUMOFVERBS)>»° 00014700 
TYPETABLE CO'NUMOFTYPES], 00014800 ae 
RESWROTABLE CO}NUMOFRESWRDS4] 73 00014900 
REAL ARRAY EVENTS Cota) % OUR EVENT AREA, 00015000 
REAL ARRAY EVENT Lo%2013 & MCP EVENT AREAS 00015100 
REAL ARRAY USRBASE CO?20)5 % DISK ADDRESSES OF USERS/CANDE FILE 00015110 
DEFINE USROWSIZE = USRBASEL20)43 % SEGMENTS/ROW FOR USERS/CANDE FILE 00015120 
DEF IN % 00015200 _ 
EVENTLL = EVENTSCO].€25%8)] # ae 00015300 
» EVENTREASON = EVENTS(OJ,£1817) # 00015400 
: 3% 00015500 
REAL ARRAY LINE COSMAXLINES*OtLLWORDSI]$ % LOGICAL LINE INFO, 00015600 
COMMENT? THE FOLLOWING DEFINES ARE USED TO ACCESS LINE ARRAYWORDSS 00015700 
DEF INE TBASE =aK#s % BASE FUR TBL ENTRIES 00015800 es , 
DEF INE SBASE = 49#3 % PROCEDURE STACK BASE 000159006 
DEFINE &% : 00016000 
INFO ® ALLL) &e | % LINE CUNTROL INFORMATION, 00016400 
LLDISKREAD= AC1i2) &» % ADORESS OF DISK SEG TO BE READ.00016200 
WAITINGSCWS AL13) &, % HOLDS CURR SCW DURING A WAIT, 00016300 
MSGPOINTERS A # 4 00016400 
‘ ‘MSGPTR = ALLQ] # . oe : . 00016500 
a MSGPTALOC = 14 Be ee 00016510 
R ERLOC se ALIS). O):  ..% ADDR 0 ISER. R HN016400 
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TER 


a 
BOOLEAN ARRAY 


COMMENT? 


DEF INE 


=. i]. we 


USERCUCE = AL16) #, ‘ 00016700 
UCLOC = 168» 00016800 
KK a =_A & | ( ) A _ 0 WURREN 90016900 gente 
CHARGE = ALi8] @» % CHARGE CODE IF USED, 00017000 
LOGONTIME © ALI9) &» % 00017100 | - j2/@ 
PT IME = AC20) # % PROCESSUR F USED ON TH 00017200 Genus ‘ 
PTLOC = 20 &, % LOCATION OF THIS LINES PTIME. 00017300 4 
INPUTCTR = AC21) te» % NUMBER UF INPUTS WE RECVD, 00017400 |@ 
FILENAME = AC22) #, % NAME OF THE "WORK" F oo0i7500,————s™ 6 
DEVICE = AL23) @ % TYPE OF REMOTE TERMINAL 00017600 ? 
PREVMSG = AL2U] fe % MESSAGE BEFORE NO DISK OCCURREDOO017650 1@ 
~-REMENT = ALe2 % p: Ei oer ests ae 9090 17700 ss RN Le Eh Bi Pree, 5 
SEQLAST = AL25] #» | 00017800 19 
SEQIN = AL26] #, 00017900 1@ 
LASTRE ‘(ROS AL27] 4s & PATA FILE R ORD 0) Q Patera en Wie ot ecman see Bee 12 
TABLEINFO = AL26) #» % CONTROL WORD FOR WORK TABLE 00018100 13 
UPDATEB]T = AC28),[2331) #» % UPDATE IN PROGRESS 00018410 |@ 
TPDKRE s TABLEINFO.62436) # % EG ADOR 00018200 eee 15 
TPREC = TABLEINFO,L30:2)¢, % I0 wO REC IN SEG 00018300 be 
TPENTRY = TABLEINFO.l3284)#> % WHICH OF 10 IN REC 00018400 |@ 
TPCOUNT = TABLEINFO.C 36312145 & NUMBER OF ENTRIES 00018500 © paced et eet eras ete I a 
WRKTBLADR ® AL29] &> % ABS DISK ACOR FOR WORK FILE 00018600 19 
TPOKADR = WRKTBLADR + TPOKREL #» % CURR WRK FILE ADDR 00018700 od @ 
FILETYPE = AC30) #, % TYPE OF FIL RKING ON EY - 21 
SOURCEFILE= AL31) #, % NAME OF CURRENT SOURCE FILE 00018900 2 
ESP 4 = AC32] @ % ADDRESS Of FIRST ESP SEG 00019000 2] @ 
P = AC33) # _ onvigyoo ses state toa 24 
RUNY = AL34] #» oR FIRST NAME OF THING RUNNING 00019200 y 
RUN2 =z AC35) #, % LAST NAME OF THING RUNNING 00019300 | @ 
OBVECTFILE= AC36) # = ~NAME OF CURRENT OBVECT FILE 00019400 le 
LIBMSGCTR = AL37) #» % NO OF LIBMTNCE MSGS, 00019500 ea 
ETIME = AL38) @» % EXECUTIUN TIME. 00019550 2 @ 
SCHEDNAME = AC39] #» & NAME OF SCHEDULE FILE 00019560 30 
TIMELIMITS® AC39) #» & AUTHORIZED TIME PERIOD 00019600 31 
NOTIFYBIT = AC39),C281) #» % “ON” WHEN NOTIFTED 00019602 | @ 
NOTIFIED = BOOLEANCNOTIFYBIT) # 00019604 3 
NOTIFYTIME = AC4O) #s 00019606 ‘ 
TIMERESTRICTBIT = AL39)6C382) . 00019608 3 @ 
RESTR OLANGUAGES = ACG 00019610 ae 36 
RESTRICTEDVERBS © A(42]#» % OH AL 43) 00019620 37 
GRACEPERIUD = 0,25 #> 00019622 4 @ 
[OTOT = Alaa) #+ % TOTAL JO TIME FOR THIS L 0001962. 39 
COMMONCELL = AL45] # 00019626 x 
CHKSEGNMBR = Aldo] #» & NEXT SEQ NU, FOR BLUCK XMISSN 00019627 «|@ 
OPTIONBITS = AC4/J #» % USERS "SPECIAL OPTIONS 00019628 a2 
ESPWORD = = ALAS] #+ ¥ LABEL EQUATION INFO 00019630 ‘ 
ESPFLAG = ESPWORDs(it49%5 00019632 @ 
ESPCOUNT = ESPWORD.[218)#> 00019634 os Qs 
FIRSTESP = ESPWORDeL20%28]43 00019636 - 
00019700 | @) 
CONTROL LOtMAXLINESJ3 % LOGICAL LINE CONTROL,00019800 r 
THE FOLLOWING DEFINES ACCESS LLCONTROL? 00019900 49 
Low = LLCONTROLILL] #» &% LINE CONTROL WORD. 00020000 | @ 
AGGEDON “Ss 4 OL Ke: 00020100 2 
ALLDONE = LCW.C02t1] # % 00020200 5 
BUSYLINE = LCW.L0311] # & 00020300 si @ 
IDLELIN = NOT BUSYLINE #4 oo02z0400,———“—s—SC— , 
INITIWTEDWHILEBUSY =. LGWelO4ti]) # % 00020500 ss 
SEQMODE = LCWelOSt1] #. &- | 009020600 1@ 
EQUATED... - bOWelO641) # & LABEL EQUATED 00020700 5 
@® @ 


=> 
a 


Data Documents/inc. 


4 * ry r = 


oo ~~ monn FF WH = 


a ey 
> m= So 


» DATAENABLED = LOW.L[O7%81) # & 00020800 
» INQUIRY = LCW.(08!1] # & 00020900 
» RESTARTNELDE = iC 093 # ; 00 00 
» WRITEASTERISK = LCW.f10%21)] 4 & 00021100 
e FILESOK e LOW.CLL34) # & 00021200 
ake yeyeq: = LCWal & 3 00 9 ¢ EES Reena creo eREAE Ae eee 
» BOJMSG = LCWeli3:1] # & 00021400 
» EQUMSG = LCW, cides) t & 00021500 
RUNNIN =z LCh : i OO021600 2 acer 
» COMPILING = LOW.C16ti)] # & 000217900 
» LIBMTNCE * LCw.Ci781i] # & 00921800 
2 ALLMCPMSG s LCW.C1385) # % : : 00021900 
» DISCONNECTING = LCWe[1881] # & 00022000 
» BREAKORWRU = LCw,(1931)] # & 00022100 
% $15 234 147350 00022200 
» RESTART = LCw.C2081) # & 00022300 
» SAVEDWHILEINITBUSY 3 LOW,£21:1)] # 3% 00022400 
__s DOGLICENSE = LCweC22ti) # 3% oo022s500 ———s 
» LOGGINGON = LCW,(23!1] # % 00022510 
» NODISKMCP = LUW.L24t1] # 3 00022520 
; a N = # Oe a alee 
» MONITORBIT zs iCw.(26%i] # 00922540 
» NOSTOP 3 LCWe C2781 ) # &4DONT STOP SCHD, ON ERRQOO22550 
= 
» SCHEDULINR = KEALCSCHEDULINE) # @ 00022585 
» NOSAVE = LCW,f29%1] # & 00022590 
r q = Le H & é a ne eer 
» THINGSLAST = LOW,C30206]# 3% 00022700 
» THINGSLINK = LCW,{36806]# & 00022800 
ry N VEO 3 A. o H A 000 OO 0 
3 00023000 
DEFINE B = B@OLEAN #3 00023100 
DEF IN I I a, Se é = 
DEFINE CONCISEBIT = ORTIONBITS.Cisiles 00023202 
CONCISE = BCCONCISEBIT )#> , 00023204 
rs P : = QRTIGNE lhe 000 06 
HELPFUL = BCHELPFULBIT) a> 00023208 
QUICKLOGBIT = OPTICNBITS.(C3:1)4>» 00023210 
QUICKLO = BCQUICKLOGB he 00023212 _ 
QUICKBYEBIT = OPTIONBITS,Catilée 00023214 
QUICKBYE = BCQUICKBYEBIT)#, o00g3216 
OWMS GR s OPTIONBL bs , ae 
ALLOWMSG = BCALLUWMSGBIT) a, 00023220 
CCLONGBIT = OPTIUNBITS, COrLldy 00023230 
ON = BC CCLONGB 000 Q sche 
HELPTOGGLE = OPTIONBITS, t7tiie 00023250 
NORETRY 2 OPTIONBITS, C6134» 00023260 
NLOCKTOGSG = OPTIGNBITE 921343 0002 0 os ae 
DEF INE LEFTARROW = "e" #3 00023300 
DEF INE QMARK = 12 #3 ’ 12 = 14 OCT = QUESTION MARK 00023400 
DEF INE WORDS = "W" #,y HARS = "C" #3 00023500 _ — 
DEFINE INCCING2)=5 INCLY= INCI+1 #3 00023600 
DEF INE UPS = Sy te SI # 1. # 00023700 
UPD =: O07 % 3 DI + 1 #s 00023800 
UPT = TALLY %8= TALLY + 1 #3 00023900 
DEFINE InCBCINCB1) = INCBL t= BOOLEAN CREAL CINCB1) * 1) #3 00024000 
DEF INE DECRCDECRI) = DECR1 %= pecRi = 1 4&3 00024100 
DEF INE DECBCOECB1) = DECB1 t= BOOLEAN (REAL CDECB1) = 1) #3 00024200 
“DEFINE ATOM MATCH TO NATOHE TH? le seg aay apa aeame 00024300 
: POV BOOLEANCMA 00924400 
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= REALCNOT FALSE) THEN @> 00024500 
DEF INE COMPARCCOMPAR1 »sCOMPARK2) = 00024510 
R 0 MP AR -QV BOOL MP AR2)) SRE a Ro 024520 eae hey 
DEFINE TENS = 100000000 #3 %& TEN TO THE EIGHTH 00024600 
DEF INE GOERR(GOERR i» GOERR2)=8E GIN ERRSWE=GOERRIIMSGPOINTERS 2% 00924700 
GOERR2s WANTSHWAITFOR? 303 JTAMSsVERRORS GO EXITS ENDS 00024800 —__ 
DEFINE SCHEDERROR = 00024810 
BEGIN 00024820 
Be eee eee LINECLEAR(CLCWeaAl a] )3 SCWBASES=BASESSSBASES = 000248900 
WORKCO]J&SSREALCNOT FALSE)3 MSGPTR330;3 00024840 
IAM $= VTEACHERS OOING3 213 00024850 
n To _OO024840 
END#; 00024870 
DEFINE SCRAMBLECSCRAMBLE1s»SCRAMBLE2)3(=2%x 00025000 
SCRAMB C1t23 ,+SCRAMBLE 24%24)) MOD MOUVULUS x MODULUS + 00025400 0 
CSCRAMBLE2,C18233¢SCRAMBLE2,(24%24)) MOD MOUULUS)+ 00025200 
DISKBOTTOM) #» 00025300 
MOD S2i13#, DIRMODsi169% 00025400 2 
REAL SYSTEM; 00925500 
ARRAY SCANPTROOSCLLWORDS*SBASE) J5 &® POINTERS TQ WORK ARRAY 00026000 
ie ie oe ie fee eek a III toi ik ke tk io ee 0027000 0 
COMMENT DOCUMENT 00027110 
THE ARRAY TOBEDONE IS USED TQ STORE THINGS THAT HAVE TO BE000274120 
“eB! N UT MUST Ww US h INE FT . Eda OES 1 ee ee 
CANNOT HANDLE THIS INFU NOW, 00027140 
TOBECONTROL = CONTROL WORD AS FOLLOWS 00027150 
Seti. : , pe 0 G0 7 60 Se ee 
127362 BITS INDICATING ROW USED IF ON, BIT 47 = ROW OQ, 00027170 
EACH ROW CONTAINS: ; 00027180 
x 3 4h = i a A ‘4 W a 2 Ny (J : 4 ny E OO 4 ‘ 490 Se cas 
123:36= AND WORD TO TURN OFF BIT IN TOBECONTROL.« 00027200 
1715= 10 WORDS INPUTDATA AND 5S WORDS OF EVENTS INFO, 00027240 
; O0 (i sRiet SAP hee Ben 
REAL TOBECONTROL; 00027300 
REAL ARRAY TOBEDONE (02352082073 00027400 


Beene teeeetakweetete ene eaew tee tet eae keke tine tke twee eee eeeeTO0027500 


BEGIN % TO SEGMENT THE INIT CODE. 


00029900 


TOIT OI II IOI II IOI IIGI IIIS IIIS IOI GOITER TOI IGIOUIGIO ionic 000 50000 


PROCEDURE DISKIO CREASON) " 33%7SREASON NO» 40%8= LOGICAL LINE.O00U30100 
*CREADFLAG) "1. = READ» O = WRITE. 00030200 
"CA} " OFSK [70 AREA, 00030300 
= "COFFSET) " OFFSET INTO 1/70 AREA 0003040 
"(SIZE) "NO OF wORDS TO READ/WRITE, 00030500 
"CDISKADDRESS)3 00030600 
x 00030700 
VALUE REASONs READFLAGs OFFSET, SIZE» DISKADDRESS3 00030800 
REAL REASONs READFLAGs» OFF SETs SIZE» DYJSKADDRESS3; 00930900 
REAL A3 % ARRAYCO) +. OFFSET. = AREA WHERE J/0 STARTS, ~ 00031000 a 
ZNOTES & IF OFFSET NEQ@ UG THEN A+UFFSET=, GETS DESTROYED. ****00031100 
COMMUNICATE (1); 00031200 
Bae te eae ei III IOI IDI GU IOUGI RIGO init tht 00031210 = 
REAL COMM2s % USED TC STORE COMMUNICATE("2) TO RELEASE CODE SEGMENT 00031220 
ZO oR RIC IOI UI Oia titan ek ii it kites et %00091300 
PROCEDURE NEXTEVENT CWAITBIT#CLOCKs Ads. & ALOJ® OF1L"FLAG BIT ® Of 00931400 ee. 
z b 1$1°SIGN BIT = O- 00031500 
REAL WAITBIT» CLOCK % 2t2°D0 NOT TOUCH, 00031600 
ARRAY ACOJ3 % 1{8%7*REASON NO, 000317000 
BEGIN LABEL DUMMYS — | sega 00031750 
COMMUNICATE C#2)3” a “2OTBWLOGICAL LINE» 00031800 
ENO$ he Derma? " : 00031850 
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COMMENT % 00031900 
e@ WHEN THIS PROCEDURE Is CALLED: 00032000 @ 
WAITB HUST BE WE WA FOR AN EVEN 00032100 es 
1 OQ IF WE 00 NQT WISH TO WAIT, 00032200 
@ WHEN THE MCP RETURNS 10 THE. PROGRAM? 00032300 
3 WA 5 vs BE } AN “N > 8B NG eR RNEDs 0090 400 = 
4 O IF NO EVENT AND NO WAITS 00032500 
8 5 JIU IOI ICICI ICIS IIDIGIIIIGI ICI IGIOIUISISOI ISIS IIIS i rininei# 500032600 
6 REAL PRO R POISK;} OMMUNICA bal : 000; oe he FS ee oS SEN se 
7 JIU IOI OUI IUIIIIOIIGI I IOIUIGIUIGI IG ODO iii iia aiid n ee 800032800 
@ : PROCEDURE FORGETESPDISKCADDR)3 VALUE ADDRS REAL ADDR COMMUNICATE (#4 ds 00932900 
7 TRALEE ALASSAITAEELEE TES ILE EERAARRE ALE R ALATA OES <7 ee) : i 
fo PROCEDURE REQUESTINPUTCBUFF)3 ARRAY BUFF LOJ3 COMMUNICATE (#5)3 00033100 
@ 4 FOIA IOI II III IIS IOI IISIISIDISII IOI ISI IIIS ISI GI Ee toting 200033200 
2 % REAL PROCEDURE GE EROISK (N)4 VALUE NS REAL N3 COMM A "6)3 0.0 0 ees 
\ JOIN IIIT INET TISSUE rok tribe katte te tH eE00033400 
@ i PROCEDURE FORGETUSERDISK (AsN)3 VALUE AgNs REAL, AsN3 COMMUNICATE C=7)3 00033500 
a5 LRA REESAASESLEEESLETE CLA LET keke khan nr ET Bria Te a ee 
ih PROCEDURE DISKWAITCICSAREA»WOS»ADDR)3 00033700 
eo” VALUE 10sWOS» ADDR 00033800 
I es PRL TIS ar OOO I OO te ee 
° ARRAY AREACOJ; 00034000 
@* COMMUNICATE ("8)3 00034100 
' TESTER ERAEAEL EECA keke Kee a KADENA eee KHER ERE eEEEONOO OO tame eh Sin te 
ia % PROCEDURE CONTROLCARD (R*A)3 VALUE RS ARRAY ALC]3 REAL R3 00034300 
@ » % COMMUNICATE (#9)5 & REASUNSRC 332715 LESRel 4038) 00034400 
2 AMAARRAMARENAE RARER ERA Rea tae ey #2 00034500 eee aa ees CRE Slee 
: % PROCEQURE SETUSER (CODE)3 VALUE CODES REAL CODES COMMUNICATE C=10)3 00034600 
@ F BUI UI IOI IIIS I ICI IISIIOIISIISI III IIIS io iets iia 800094700 
p7 DEFINE OISKOUTCOISKOUTI»,DISKOUT2)= 3% OOU34800 = ee 
B DISKJOCLL&13(33584137) »0>WORK(O]s0s pISKOUT2sDISKOUTI) Ss 00034900 
@ BIS UIUIIIUIOISIIIO IOI GIIDIS USI III IIIS ISI ISO ioinioi icine ice ## 300035000 


DEFINE DISKWRITECDISKWRITE1) = x | 00035400 
DISKIOCLL&13£3324137),00WORKEU]200-30/DISKWRITE1) #3 00035200 


TI II IIIT IIIS IOI ITO IOI III Reed 00035300 


DS Ow Gd UW Gl a Gd aOR = 


bch h LAAT A LE ALAA CEE CREE REE EERE ECE CCLE ELECT TECTES 


0.0 6900 


@ 
PROCEDURE TWXOUT (ReAsNeT)s VALUE ReNoT3 R AL. Re AeNo TZ 00035400 I Ss OT ISR AS ee Rang A ee ee 
IF NOT MISCCNNECTING THEN % WRITES ARE Ueke 00035500 
@ COMMUNICATE ("12)5 % TeCFR# OF LFS*TeFFE1 FOR NU CR 00035600 
II III IUI IOI III II IOI I IOI IOI IOI III IOI ti eS 00035700 
REAL LITOUTSTORES % KEEPS CHARACTERS BEING OUTPUT BY LITOUT 00035750 
@ JI AICI IIIT III ICIS ISIS IUIIINIG IGG IO Rak iit dictate ia 8800055775 
PROCEDURE LiTou X#CRI3 VALUE XeCR# REAL Xe CRI 00035800 | Saree 
Bee te ee Hf te te ae OR TR RIT I ENR UN ERAN EEAEUEE EES 00035900 
td BEGIN 00036000 
STREAM PROCEDURE BLANK(XsY)3 00036050 
BEGIN 00036100 
@ SIU#X; DIGFVs OStWOS; OLs3pIeds SLlrasyee; 00036150 
TCTF SC#"O" THEN JUMP OUTS OSt*LIT"™ "3 SIseSIe1)3 ; 00036200 —_— 
: END; 00036250 
@ BLANK(X» LITOUTSTORE)3 00036300 
8 TWXOUTCLLe LITOUTSTOREs 8» CRI3 00036350 
: . END LITOUT; eee 009036400 
@ FOR gee SI III IIIT IO Ie a ay 00036500 
PROCEDURE CC15 (RekeNwbeUsTeX)3 VALUE ReFeNoLsUeTeXx3 00936600 
5 REAL ReFseNsLeUsTsX3 00036700 
@ |: COMMUNICATE (918)3 . 00036800 
B DEFINE COML5€COM1514CQM1525COM15354CUM1545COM15595C0M156) 00036820 eae. 
=CCISCCOMES Sy COM152,G0M159,COM154500M155»C0M156,0)83 00036840 
® af DEFINE COMLSTMOCES O30 2 Geo ae oe ns mae 00036860 
td 
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G2: 


DEFINE FINOCFINOIsFIND2sFINO3 pF IND4 st INDD) 00037000 


=COMISCFINOILsFIND2sFIND 3e9FINDGsF INDS 415) 45 00037100 @ 
fe Sma ene eee we ee Mase se eee See Tee eee Fee en TE eee Nee Eee ()/) af20Q 
COMMENT#=ON RETURN? 00037300 : 
EVENTSL1J= PROTECT CODE (SAME AS ALGOL SEARCH) 00037400 |@ 
’ A Ri OCK 000 BOO 3 
of1a% 15)= HEADER AUVDR . 00037600 ‘ 
0£3686)= FILE TYPE 00037700 |@ 
42%6)= OPEN COUN ae es eh OOS eB OO es a es Secor 2 SE . 
C(3]=5 EOF COUNT 00037900 : 
(4]s ADDR OF 187 RECORDS 00038000 |@ 
RAM eeeeHeeeee teeta eet theeeh eee katanadeekaeetee ees 66000388100. Bees ae ee 9 
DEFINE MAKEFILE =COMi5é#3 00038200 ol 
& EVENTSC1)= ADOR OF 1ST RECURD 00038300 |@ 
S = HEACER ADDRE OS 3G ote i ne ue 
ESS CERES ESSE eee eee CCC S ECCLES CCE CELESTE TTC CTT eT 00038500 13 
DEFINE BeAr piri oe terial regen ani ea alien gars 00038510 @ 
AA s STAA AK AATUS&s 00283 DODO SR S30. ne os dy oo eee Se hy 
% ON RETURN? 00038530 Ma 
% EVENTSC1]3PROCESS TIME € =1 IF NOT RUNNING J 00038540 |@ 
x NTSC2)210 | OH O52 fe b> | ane by 
x EVENTSC3)=CONTENTS OF Rea? C IF COMPILING ?) 000385606 tS 
BE EW EEE ET EERE ERRATA RES 00038900 o4 @ 
PROCEDURE LOGON ¢ WeA)s BOOLEAN LCWS ARRAY ALOIS 00039000 2 
BEGIN LABEL DUMMY; 00039050 pa 
LOGGEDON #3 TRUES 00039100 73 @ 
5 ; ; ; ME Rrcececee ome OL 16 JRC 2: LX © la re On cet rear PO neo ee 2 
ESP1 &@ GETESPDISKS ESP2 $s GETESPDISK; 00039200 25 
If NOT See Lioaaae x LET SCHED CALL. LOGONe 00039290 9 ® 
M 3t 23s E RGE» petits B ons Shas! = 
END LOGON: 00039400 a 
Sib ee eee CS SCC CCS SSCS OCCCCC CC. Se es 00039500 1 @ 
PROC DURE LOGOFFCLCW2A)s BOOLEAN LCW3 ARRAY ALU]5 OOLUES A> 8) 0 A area nae Ren oe ee 30 
BEGIN LABEL OUMMY; 00039610 os 
IF LOGGEDON THEN %ESP TO GIVE BACK, 00039620 1 @ 
BEGIN ON $3 FALSES ON FF tase heasaicnoe a oe eas tt ae 33 
IF ESP1 NE@ O THEN FURGETESPDISKCESP1)3 00039800 
IF —SP2 NEQ@ O THEN FURGETESPDISK(ESP2)3 00039900 3 @ 
OMy5(LL813973324127]> 20USER CONDE CHARGE «f1341]2123600)3 00040000 = 36 
“END IF LOGGEDON; 00040050 37 
END LOGOFFS 00040400 a4 @ 
BEI III III IG IDO IDI I IIIIOIIG IO IG ine Joni tn tiie 00040200 39 
DEFINE Pree CeO eet beoaoc2* 00040205 ‘0 
COMISCLL&13L3384187) + 9+SCHEDGOTOL» 00.0) 83 00040210 «|@ 
BAI III IIIOIII IIIS III IOIICIOIIIIDIOIGI I GIIIUIIIG pict Gi it oii tte tt 00040215 42 
DEFINE REQUESTYIPCREQUESTIP1)= 00040220 2 
COMLSCREQUESTIPLG13C33F4197191000.00020083 = 00040225 «4@ 
BGI II IIMS INGO EIGN ISIC oir icition tits 8600040290 ee 45 
DEFINE SCHEOSTATCSCHEDSTAT1)= 00040235 ‘6 
COMISCLLSIAMC 33241271511 »SCHEDSTAT 1 /USERCODE 900083 00040240 «1 @] 
Fa IU IGIIOUIUIG IOI GOUUUIUUOUOioiilictoi king inks 00040 4 foe ‘8 
DEFINE SCHEDSTOPCSCKEDSTOP1)= Ooeupcee : 
COMES CLLR TAMC 33541973612» SCHEDSTOP 1>+USERCODE® 000283 00040255 «| @ 
Bethe ee ewan e eset eae teehee N ERE aE En ee ene ied 400040260 oa Soto = Pa 
PROCEDURE DISCONNECTEDCLL)S VALUE LLs REAL LLG CUMMUNICATE (€#16)3 00040300 5. 
PROCEDURE RUNJOBCL»AsD)S VALUE LoDs REAL LoAeDS COMMUNICATE(C #19)3 00040400 «1 @ 
PROCEDURE READTAPECRoNof sUISVALUE RoNof U3 REAL NaNaF 93 00040500 
COMMUNICATE C#415)2 00040600 56 
Meee Re ae ttre athe e tkan ee tee tee ae ences sasetatsnsdeys 00040700 54 @ 
DEFINE REMOVEFILECREMOVEFILE 1+REMOVEFILE2*REMOVEFILE3)& 00040800 
@ ° 


on ~ @2 FW F WH = 
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CeeVeeTee 


COMISCREMOVEFILE1» 3sREMOVEF IL a Qe REMOVER ILE3s 00) a3 00040900 
Be de eee i IR III I IID ICI IOI IOI OR I ei atone OO041L0600 
DEF IA HAN ANG 2 dA ' 2 HANGE 00 0.0 
CHANGEF ILE4» CHANGEFILES )®COM15 (CHANGEF ILE 1s5» CHANGEFILE2> 00941200 
CHANGER TCE Se CDANGEE TCS Sy COANG Er EES #) 00041300 
TARR RLEAS SE. bw ee ee it 00.0 i a IB i ae Sa ee Se 
DEFINE EPLACE (REPLACES SRE PLACE 27REPURCE SREB ACE 4 REPLACES REPLACE NIE 00041500 
COMIS7CREPLACEL* 4» REPLACE2>»> REPLACE 3e REPLACE4* REPLACES * REPLACES )#3 00041600 
LARS RARARARARA RA ARR ERR ERASER ERR A ARPA RRA EARLE EE! 00 00 Die ets 
DEFINE SECURECSECURE1s»SECURE2*sSECURE3)& 009041800 
ee eee cena hte ree eer be nnoe erUse RC GOES 00041900 
RK A ? 
Fo te te te et I IO I III IOI Silo into idk ike 44200043000 
PRUCEDURE CCCOMCLL»UCeCI5 VALUE LLeuCsCs REAL LiLsuc,Cc3 00043100 
COMMUNICATE (#47)3 % CARRIAGE CONTROL COMMUNICATE (CzysL ONG) 009043200 
Between eee OO tke Ok Ree tht kk kien tt e00049700 
BEGIN % TO SEGMENT THE NEGATIVE COMMUNICATES. 00049800 


Attee keke etka i ee ee Bd On hk tet ee ea eee 
STREAM PROCEDURE MOVE ¢N)"NO F'CWCI"WEWOSs CECHR FROM CA)” TO "(BF 00050000 


FE i i TIO Iii TRIG GOO GOU tk ik ios et 300050100 


VALUE _ __ Ns WC} Soe OOO O20 Oe it eee a 
BEGIN 00050300 
LOCAL 13 00050400 
SI*LOC N3 SI*S14+65 Ol*L OC T3 DieDI+7s OSeCHRE == 0050500 Mees core ee eeeeme 
DI* Bs SIT*LOC WCs STeol+75 00050600 
IF SC= "W" THEN 00050700 
BEGIN Sle* As OS¢ WDS3 00050800 
TCOS¢32 WOSs OS¢32 NDS)S 00050900 
END OF WORD MOVER 00051000 
RY 000 00 3: 
BEGIN Sle As DS* N CHR 00051200 
TCDS¢32 CHRs OS#32 CHR) 00051300 
D Q HAR MO OQ05 00 
ENO OF MOVES 00051500 
CEST ERE SESSILOCLOTCLCCTS ECC SCOCCCCLLLSA CISC LLCCOLL PLE LLL TL 00051600 
STREAM PROCEDURE BLANK(X)3 000 00 at Bete 
Rew aee R Tk a Rk 00051800 
BEGIN 00051900 
DI%=Xs  SyPt=x3 00052000 5 
7CIF SCs"0" THEN ELSE yun OUTS DOStSLIT™ "5 UPS3) 00052100 
END STREAM BLANK; 00052200 
SHEAR AHERN ERNE EERE EEA EAHE RRR ED REETE RENEE ERA ETRE TENE EEE ERE REE EERE ED 000 00 
INTEGER STREAM PROCEDURE DECCONV (CUCTV)3 009054400 
VALUE OcTvs 00054500 
B N ¢L0 0 DI +10 PECCO > DSeé “3 e 944600 eee 
END OF DECIMAL CONVERTS : : 00054700 
GOOG IOIU III ISIS IGS IEICE INO OOO DNO iE onion t tietat 600054300 
P Fe 0) DUR BLACKS : OCOOS 490 
LaWau caw u eave pee Gases Nh d) 4dN ss 1 eed NAG PAN Ete a6 aad bee eon res ec O00GS000 
BEGIN REAL I3 00055100 
STREAM PROCEDURE BOCI»w)s VAL , 000 00 
BEGIN 7 00055300 
STESEOC 13 pe Neda nah ee bile OS#sCHR3 00055400 
4 “ c O0.U05 ~wane 
END STREAM PROCEDURE BOs 00055600 
FOR [3 ="ury, Wwe, wat, won, war 00 00955700 
. . 00055800 
BOCT»WORK)} oe ee oe 00055900 
THXOUTCLLSMORKEO]*82CR)3 a 99056000 
NED) Pau ee ‘ : : ai 00056400 
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a 5 3 * n Th = ae ~ - 3 


em: 9 


END PROCEDURE BLACKOUT; 00056200 r 
alia alee telat lial Rallialad adalat iadialaeletieelatalalelialdeheleleheiiatel delel hdl tebekehotet ht, 00056300 
RF AM PRO DLR AKC Asi) A NO0O0546400 EE RS ee ee OS 
UstecssnnesstesacaastesenestsssanssstnntuuvuusutuueuuesennenTeaeah 00056500 : 
BEGIN | | : 00056600 | 1@ 
COMM SARS A + N WORDS § ART: , AT A + 00056700 = = 
DI®sAs OSts8 LIT “OOOU"Z SI3sA3 DS?SN wOS3 00056800 * 
END CLEARS 00056900 |@ 
(ER ARARRESASERSO REESE EAA ER EEE ECAP ESA REE ELE PERETTI LETT eT 000 1.6 @ iparraces ets eee A arcane 6 
STREAM PROCEDURE TIMEYUSEDCWsHMSTX)3 VALUE HMSTX3 00057100 ; 
EPEC PSE Tee SELES CCCCCC CLL LAL APLAR A LICL TCT TTT 00057200 : 1@ 
y 9 
OIt=Ws SI&s_OC HMSTXs 00057400 19 
DS#=2 CHRS OSt=6 LIT " HRS» "5 00057500 /@ 
NSis HR3 DSt=G "OM nS oes DOOUST OOO ee 12 
DSte2 CHRS OStet LIT "V3 00057700 i 
DSte1 CKR $ StS LIT” SEc."s 00057800 ; @ 
eee OS Tn ee et a SOROS I O06.- Pearce antennae be 
DItswns OCSta GF ILLS SVispI; 00058000 Is 
S[t=SVs DIt=ws OSt=LIT" "3; OS:s25CHRs OStsLIT LEFTARROWS 00058100 |@ 
% volo we aah oh ee a ee ks 
END TIMEUSED; 00058300 Ny 
EET ETE CETTE COLT ETO ETEC ECT TCT EEC CTOR TT Ee Cee Ce CT eT eee 00058400 oj ® 
STREAM PROCEDURE TIMEQFDAYCWeHMSTX)3 VALUE HMSTX3 00058500 = : 2 
SE NCLDE EARL WARES A CURDS WE WEEDRE LW WOO Cea EWG REDE OW aA ce STE eee 00058600 22 
BEGIN 00058700 21 @ 
sees t=w; Stak iT "s STs= 0 "1 sn a ON a at ge on Sa 24 
DStz2 CHR ODStel rT 3"3 pate : CHRS 009058900 2 
Sit=sSl+3} 00059000 29 @ 
aA" THEN DS:% AM," 3£ 1 “ PM OOO059100 == 2 
DI%2Ws OSts2rILes 00059200 1@ 
END TIMEQFDAYs 00059300 ik 
PALER RARARERERE REE ERRERAAREREEARORESESASERARLERE LEELA ELE 00059 hs 235 es be ee 30 
REAL PROCEDURE TIMECONV(T»B)3 VALUE TeB8S REAL T3 BOOLEAN B3 00059500 aie 
y Pee ee Ee EEC CSCC LSC SSCS TC LOLA TALT ETE CLLIETTCETL TTT TTT es 00059600 eo @ 
B A fe 000 Y70O00 Pane 
REAL AP? 00059800 
INTEGER HRS» MIN» SECs» TSEC 00059900 1@ 
REAL STREAM PROCEDURE SI (He MsSoTeX)3 0006000 Dotinfae ks 
BEGIN ; 000601400 ced 
eats STi ly ‘OSts2 DECs SL tena OSts 2 DEC: 00060200 4@ 
39$ DSts2 tel DStsi oO - 00060300 39 
ee olt=Sl473 DS?SCHHs 00060400 - 
END STREAM ST3 00060500 jl @ 
HRS ts 8) 2160003 00060600 = 42 
MIN tacTy O1V 36003 MOD 603 00060700 i 
SEC ts¢T DIV 60)-MOD 603 00060800 . 4®@ 
ta [) é M00 0 | 00060900 45 
IF HRS GTR 11 THEN AP3= np ELSE APi= "tat; 00061000 4g 
IF HES GTR 12 THEN HRStsHRS=41 23 00001100 |W] 
S N HRS? = ce OO Q ° ore RNC eRe RE TIT. 48 
THHECONV IWSTUHRSOMING SECs TSEG LAPD} step A ~ 90061300 ; 1@ 
END TIMECONY 00961400 id : 
TRRREARERALAEEEALAL SE 2 hha wi ka da Oe aG tks Was Wa ewe ees iene as NO061L R00 S.. 51 
REAL PROCEDURE MAKEFNCFT®LL)3 VALUE Lhe FTS REAL LLeFT$ 00061900 5 
TIE IIIT UIST IIIS GIGI Gi iininiioincie i #8 00062000 @ 
B N 00062100 54 
REAL STREAM PROCECURE FNCET#L tds VALUE LieF TF i 00062200 an oe 
BEGIN 3 00062300 : | co @ 
SIte.OC FTs SltsSiess OF tab OC. F 3 _OSte3CHRS en . 00062400 Ste . 5) 
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@ ® 
SIs2.0C LLs DSte=3DECs DSt=eLII" "3 00062500 
& END STREAM PROCEDURE FN3 00062600 @ 
MAKEFNS=FN 2 +SYSTEM ee © © A> -QY 22 © 1 © 
1 ENO PROCEDURE MAKEFNS 00062800 
é¢ 2 (RSE REC LES ERS EERE SCEPC REC CER RCS CECE REET E SOLE ES © | 00062900 
3 PR DUR HKPT A ARRAY ALOV 00063000 Cv “en cine case oh Ou Soh hla rath 
4 Tito i koro io tk Row RR et ea ZS 00063400 
@ > BEGIN LABEL DUMMY; 00063200 
6 RLCW 32 REALCLCW)s % SAVE TUGGLES STACK 0006 QO eens 
7 MOVE C4O/WORDS* AC TBASE Je WORKECLOxTPRECI)3 00063300 
@ |: DISKOUTCTPDKADRs1QxTPREC+40)3 00063400 
9 END HKPT3 00063500 a2 
no Bk ik ke i kok ak kk Rk a IE et 00063600 
@} PROCEDURE CANCELCKPT(A)S ARRAY ALOI3 00063700 
2 BEGIN LABEL DUMMYs 00063800 aoe 
n RLCW $3 REALCLCW)3 & SAVE TOGGLES IN STACK 00063810 
@ "4 TABLEINFO 8 Q3 ; 00963900 
hs A BASE+10) 35 TENAS O0064000 
j6 MOVE C30 »WORDS »ALCTBASE +10} »WORK(0O])5 00064100 
e u _DISKWRITECWRKTBLADR)/ 00064200 
ND _ ee Tie eae ae 
9 Ree ek ek We ir Ra ak i nH ik et kh kkk eke eae OO064400 
@ a REAL PROCEOURE DATECONVCOATE)$ VALUE DATES REAL DATES 00064500 
: ERAERSRARARREREREE RE REAL AER ERE REA OSA LE RAR EERE ERE E AERA REAR EEE SE Ee BOT OL ST OY Y.0 016 ne 
P BEGIN 00064700 
@» REAL MsDeY3 ARRAY L£0819]3 00064800 
, y 0 H4900 sone dsiesatls Satins cn teetee ater 
P INTEGER STREAM PROCENURE OCTCONV (DECV): 00065000 
@ VALUE DECVs | 00065100 
7 BEGIN STeLOC DECVs TeL OC OUCTCOUNVs OSe8 OCT3 00065200  —s_s— 
i END OF QOCTAL CONVERT; 00065300 
@ z Bet ncaaeeecencrrtonersccecssessasessrasaterarorasesarscesseresrsreee sre O0UOS400 
BO * " HO 60,9 os ‘ a7 663 0006 O0 
MS=DECCONVCDATE)s DtSOCTCONVCM,£30818))3 YexOCTCONVCM,C18%812393 00065600 
@ IF D GTR 60 THEN IF Y.[46t2] NEG O THEN pimo+li 00065700 
3M B M320 Do MiaM+ N Q UR Ms ; OOOS5800 
Dt=DECCONVC(D*LEIM"1])5 Mé&sDECCONV(M)3 00065900 
@ DATECONVSS"O/00/00MRM(1 2372811 IBDLIB 236812) a YC 36236312); 00066000 
i ND PRO DUR A ONV 00066100 we et A 
ZC EEIESITIGINOIEI IIE IISISISTICIISIGISISUIDIGIOUGIIIOCITIIIO III iit 00966900 
@ DEFINE MAKEDATE = 00067000 
DATES e"/O00/00"R (DA tsl ime ($3) U 3 RDATELi8B%e4? l&pna 36336 00067100 Bae Nag cate Eh ee 
HW eee a te ie i te TOE ek RO KR KEK aH 00908700 
@ REAL STREAM PROCEDURE FNONLYCWLeWesF oS)s VALUE F>S; 00068800 
SES aes AEE RA TARAS REE A EER OAR A RAE See ee 00068900 Re ee ee 
BEGIN 009069000 
@ + LABEL SPRED» EXITS 7 00069100 
’ DI 3 Wh) 00069200 
DS t= 5 LIT "FILES"s 00069300 
SI] t= LOC Fs UPS3 e 00069400 
TALLY t= 53 00969500 cent 
: Cr t= CI + S3 00969600 
i GO. TO SPRED3 00069700 
DS %* 6 CHRS 00069800 ae 
p TALLY t= 113 00069900 
@ | GO TO EXITS 00070000 
i SPRED3 00070100 matte 
| OCIF SC # ALPHA THEN ELSE JUMP OUTS ; | 00070200 — 
Or. DS t= CHRS sie a - 00070300 
e 
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o eS Se Se eS ee <= = : 


fs Fs FoR 


DS t= 2 LIT * a"; TALLY t= TALLY + 23 00070500 
FNONLY %= TALLYS 00070600 

t= DI> O00 ey cere eee 
SI %= LOC S}3 00070800 
DI ta wW23 - mt, 00070900 

D te WO 000 100 pnt tA es 

ENO OF FNONLY$ 00071100 
21 te ne eT III IIIT Hi iSO te 009073500 

—PRUCEDURE ___GENFILINE CFN»e FT)} VALUE FN» FT KEAL FN» FTS 90073600. foarte 
RECS PEEPS Se SCLC CSCC ST CLC TC CELILCALTCOLCCL CCC LLLEL ECOL | 00073700 
BEGIN . 00073800 

R Ke D : Se Pa oe ee OOP OOO e 8 ot 


med ece neem eee neces near ener er een r ee eMaen Hones eratersecesteenerversesaes es 00074000 


REAL STREAM PROCEDURE TYPEONLY (CWeT*S)3 VALUE WeToS; 00074400 
BEGIN OOF NS Oe te a, 
LABEL SPRED» EXIT} , 009074300 
Frege ad 00074400 
: —OOO7K4500 0 
ery LIT * TYPES"; TALLY *=.103 00074600 
SI t= LOC T3 00074700 
P a5 0 3 amare ee eee a oe teoene ees 
CI #= CI + $3 00074900 
GO TO SPRED3 00075000 
D HR SS a OOO 7500. 
TALLY %2 173 00075200 
GO TO EXIT; 00075300 
Gr a ee Se ee es Pot eee ache a ae 
7CIF SC = ALPHA THEN ELSE JUMP QUT3 00075500 
DS t= CHRS UPT)3 00075600 
Ww Ws 
EXIT?! 00975800 
OS *= 4 LIT " w= M3 00075909 
= = A > ore 6000 oo 
END OF TYPEONLY3 00076100 
Redon ne eter ee reese essere eHeeH sete eet eur rere ester eee eeneeerereeseess eee g 00076200 
X 3% FN 0 Or FN»s O)3 NT O30 Oho So es ae ot 
X $3 X + TYPEONLY (De FT» O)3 00076400 
TWXOUT CLL» LOLOJs xX» NOCRLE DS 00076500 
END OF GENF 0007 6600 eee 
TI III IOI IU III IG IGIGIGIIDIIGIIIIIG OIG gi iGk Rt tits itt *000078500 
PROCEDURE ERROR(CSsLCW,A)3 VALUE S3 REAL S3 BOOLEAN LCWS ARRAY alO 3300078600 
ORWARD __ 00078800 
CRESS POSES SSS CSCC SSCL eS eT TS START ALE TALL ETLEE CLL E TT LET TTT T TTT 00078900 
REAL PROCEDURE OOGSLOQSE: 00079000 
FA III CII II UIUI IUCR I IO IGIGIGIIDIOUIIGICIGIUII IIE i ick 009079100 
BEGIN : 00079200 
REAL Liat? : 00079300 
ABE COLLECT,EXIT} 00079400 __ 
FOR LLt=MAXLINES STEP 71 UNTIL Oo ou 00079600 
IF T#=DCGHOUSECLLJ NEG O THEN 00079700 
F CTRANDBASECROWINUSE] NEQ T THEN 00079800 
IF NO QOGLICENSE THEN GO TO COLLECT; 00079900 
DOGSAROQUND 12 DOGCATCHERS GTR oO} 00080000 
WECANUSEDATA #8 NO DOGSARQUNDS 000801000 
IF WECANUSEDATA THEN &@ OeKe TO RETURN DISK. 00080200 
BEGIN & FIXUP TANK/)ISK HEADER. 00080300 
DISKWAITC1s»WORK(*) 309 TANKFILE)$ _ 00080400 a 
CLEARCWORK(190)215)3 00080500 
WORKCROWINUSE410)18C TRANOBASELROWINUSE TS 00080600 
WORKE OG) 38 ROWINUSE & CROWCOUNTIa4) (18833815)3 00080700 


Data Documents/inc. 


a G a 2. 2 * + c 5 n x 


oo n~z On FW FF WH = 


10) 


DISKWAITCOsWURKE *] 430+ TANKFILE D3 00080800 
FOR a STEP 1 UNTIL 15 00 00080900 
| N % AWAY E NN wv Od081000 


IF T NEQ ROWINUSE AND CTRANDBASECTI NEQ O THEN 0008611400 
BEGIN &% GIVE BACK UNUSED DISK. 00981200 
AR KO 4 A ALY HA ANA d ff 0008 one) 
CTRANOBASECTI] %= QS 00081400 
END GIVEBACK# 00081500 
NY OR CF» 0008 ANDO. 
END FIXUP TANK HEADERS 00081700 
GO EXIT; 009081800 
a $ Aust tA eine slr Popa 5 el A SOO ORO OO ous se 

DOGCATCHERS $= DNuaCalCHERS+13 009082000 
DOGLICENSE *= TRUE, 00082100 

NOG ts ; 00¢ Ohi) oss 
EXIT?END ODOGSLOOSESs 00082300 


REPRE Cen NS eS U EC ESA eh Taso e eds ests Cae et evense een neAy ete na RaNe Hees Yye008 2100 
REA 


ECA TEER E FEO PET a LP TEU EE Ry a EN Pr re TOE CE eer Ser aN MRT ANE OTE 


VALUE WORD*TABLESIZES REAL WORD*TABLE*>TABLESIZE; 00082520 
BEGIN LAREFI YG : , 2600 
REAL STREAM PROCEDURE FNDALETTERC WORD» TABLE» TABLESIZE)$ 00082610 
VALUE WORD» TABLESIZE3 00082700 


% RO OMP AR "wCORD" ON H ENTRIES JN akRaY "Ta " 


JOG OR 2 BOG itn dee cen eee 
% 1ST CHReOF EACH "TABLE" ENTRY=NOeOF CHRSeIN wORD CCL: Lj]sl IF COMPILER)OO082900 


%’ "TaBle” SHOULD BF "TaBLEL1I]" TO Use RETURNED ValLuUE aS INDEX TO "TaBLE"00083000 


BEGIN LOCAL SVsTsSCNs LABEL FUUNDZE KITES COLORES 0] 6 a ere 
STs=TABLE} Svt=STs TALLY 2243 00983200 
TABLESIZECOTS=L OC SGN$ DStsZON3 & SAVE ZCNE BITS 00083300 
=Svs Sl:sSlea3 BLOC WORDS JOlsadl+i5 #£ PUTIN T_CHRS OGO8 3400 Renee 
IF SC = OC THEN JluwP OUT TO FOUNLS 00YU53500 
TALLY?@STALLY+1s SIss5v3 sltssitas Svsesii COVEIENOD 
A Yi=03 Noa s=TA 3 i. , NO ; 00083700 
FOUND? 00083800 
TeeTALLYs SIS*LQOC Tse OLsslLOc FNOALETTERS OSt2WuS5 00083900 
SIts_OC SGN Ot sii NDALETTERS USte2uUn3 TRANSFER QO084000 
EX1T: . 00084100 
END STREAM PROCEOURE FNDALETTER? 00084200 
FINDALETTERSSFNDALETTERCWORDs TABLE * TABLESIZE )3 00084210 net 
END PROCEDURE FINDALETTER; 00084220 
RAM a eee HERE ERE EEE E RENTER EERE RR ik tee 00084900 
REAL PROCEDURE FINDAWOROCWORDsTABLE*sTABLESIZE D5 00084400 
GRR AREER RRR EA RHA ERE ERR ER MERRIE REA EREAN ER HAE RA RHE R EE RAR REWER EROOOBGYLO 
ere pear lay REAL WORDs TABLE» TABLESIZE3 00084420 
G AB spot DOO BAGO Gate etre eae 
REAL “STREAM PROCEDURE FNOAWGROCWORDs TABLE+ TABLESIZE) 5 000864510 
VALUE WORDs TABLESIZE} 00084600 
% ROUTINE COMPARES "WORD" WITH ENTRIES N_ ARRAY "TABL e -00084700 é 
x IST CHR«OF EACH "TABLE™ ENTRY=NOeUF CHRS.IN WORD (Citijel IF COMPILER)00084800 
% 1ST SUR OF "wORD" = NO, OF CHRS. INPUT BY USER ( MAX, = 7 ) 00084900 
2 "TABLE" SHOULD BE "TABLECLI" TO USE RETURNED VALVE AS INDEX TO "TABLE"00085000 
BEGIN LOCAL SV»WROSIZeTOLSIZeSGN? LABEL FOUNO*EXITSS 00085100 
Stt=LOC WORDS DIt#LQC WROSIZs DLI=OI+73 OStBCHRS % WORD ‘SIE 00985200 
SItsTAB ts ALLY ES43 oo00a5300 
TABLESIZECDI#SLOC SGN; DSt=ZUN3 % SAVE ZONE BITS 00085400 
SIssSvs OFs*LOC TALSIZ3 DIssDI+73. DSt=NuMs & LENGTH OF TABLE ENTRY 00085500 
SyssLOc WRpSyZ3 =5 p> O[2F.0 BLS[Zs plz=p 3 00085600 tA 
IF SC GE@ oc THEN 4 WROEEE: AT. LEAST aS LARGE AS” THLSIZ 00085700 
Beals | : | 00085800 
DER OC MORDS OLS eb T+: hb POLN 0A bl DOVES 900 


Data Documents/inc. 


3 3 wT 2 sa . 
B > & os & e = > 


(3 


IF WROSIZ SC = OC THEN JUMP OulT TO FOUND; 00086000 
ENDS 00086100 
A ssTa } STt=oVe SIs ; =ST)3 OO0B46200 
TALLY%?=0% FNDAWORDESTALLY? GO 10 EXITS % IF. NUT FOUND 00086300 
FOUND?! , 00086400 
is ; ii i a 00086500 
STssLQC SGNS DIssLCC FNDAWORDS DOt=ZONs & TRANSFER SIGN 00086600 
EXIT? 00086700 
ND REAM PROCEDURE F RD a OOO BABOO. 
FINDAWORD! =F NDAWORD(WORD* TABLE» TABLESTZED 3 00086610 
END PROCEOURE FINDAWORD3 00086820 


00987603 


Saye capecoree ee ee eee acs 


% 
% 


Be Fe ae Be DE Be aE Se pe 


we BElae SC ae | AR ae ve pC 


TH PRO DUR FFP TRACK “SP DIoOK SEG } a 
FOR LABEL EQUATION USEAGE. “EACH LOGICAL LINE HAS A VARIABLE CALLED 
"ESPWORD” WHICH IS COMPRISED OF? 


ty 


FIRSTESPS ESPWORDe sats a C1ST ESP ADURESS FOR LBLe EQNe 
EACH ENTRY IN “ES " 1S RIS 3 
; ESPTABLECI}.01:1) ace THIS WORD IN USE ) 
ESPTABLECI). C228). (LOGICAL LINE USING THIS WGRD ) 
B 328 ADORE 5P_ SE 
"ESPTABLE™ JS DECLARED LO2ESPTABLESIZE] 
WHEN A Eee ae VALLE FOR LL IS PASSED Tu THIS PROCEDURE, AN 
EN R {) N At Tt riA NE AND ES fh i 
ESPFLAG IS TURNED Ch IN THE EVENT THAT THE ESPTABLE TS COMPLETELY 
FILLEDe WHEN A NEGATIVE VALUE FOR LL IS PaSSEO TO THIS PROCEDURE? 
AND A NON"NEGATIVE VALUE. FOR ADRS IS PASSED» THE ENTRIES FOR TH 
SPECIFIED LINE ARE REMOVED FROM THE TABLE, AND E SPWORD Is RESET 
TO ZERO. WHEN BOTH LL AND) ADRS ARE NEGATIVE» TRE ENTRIES FOR THE 
SPECIFIED LINE ARE REMOVED FROM THE TABLE AAD THE ESP SEGEMENTS 
ADDRESSED BY EACH TABLE ENTRY ARE RETURNED TU THE SYSTEM. ESPWORD 
IS ALSO RE@*SET TO ZERO. 
8 N 
BOOLEAN DELINKsFORGET$ REAL [swOhU$ LABEL EXIT3 
DELINK = BOOLEAN(LL el 4!4])3 LLESABS(LL); 
FORGET 3%= EANCADKS,C1%1))5 AURSS=ABSCAUROI3 
FOR I%=0 STEP 1 UNTIL ESPTABLESIZE 00 
IF DELINK THEN 
EGIN 
IF BOOLEANCCWORCS=ESPTARLEL TI) «¢(C1%81]) THEN & vaALIu ENTRY 
IF WORD,C2%°8JSLL TREN % ENTRY FUR TRIS LINE 
BEGIN 
ESPCOUNT t2 ESPCOUNT = 13 
IF FORGET THEN 
IF_ CWORD? sWORDe(20!28)) NEQ O THEN FORGETESPOISK(WORD)3 
ESPTABLECI]%=03 
IF ESPCOUNT = O THEN 4 NQ MORE ENTRIES FOR THIS LINE 
BEGIN 
ESPWORD t= Of GO TO EXITs 
END3 
ENO} % IF ENTRY FOR THIS LINE 
END % IF DELINK 


SE 
BEGIN % ENTERING NEW VALUE IN TABLE 
IF NOT BOOLEAN CESPTABLEL I Je C131]) THEN & AVALLABLE WORD 


See 
TABI 2 ta eaDRS-& LLEetaore8 )3 


ESPCOUNT= ESPWORD.«C2:6) ( NUMBER OF ENTRIES IN ESPTABLE ) 


) 


90087605 0 
00087606 


00087607 


00087609 
00087610 


— 00067611. 


00087612 
00087613 


SLT EERE LTTE TET T OTT OCTET TT ETE TTS TEST TESTE SE TESTES TT ESTE TTT ETT TOT TT TT TTT ttt ee 
PRUCEDURE ENTERESPCLL sAURS*A)S VALUE LLeAURSS KEAL LL» ADRS ARRAY ALOIS 


OO087614 


00087615 
00087616 


OOQ0B74617. 


00087618 
00087619 


000867620 ik 


O0Us76e1 
00087622 
00087623 


00087624 
00087625 


— 90087626 0. 
00087628 


00087630 


00067632 — 


00087634 
000387636 
000467638 
00087640 
00087642 
00006764 

00087646 
00087648 
00087650 
00087652 
00087654 
00087656 


00087658 
00087660 
00087662 
00087664 
00087666 
00087668 


00087670. 


00087672 


0008 * 


Data Documents/inc. 


e 
ESPCQUNT = ESPCOUNT + 13 00087676 
GO TO EXITS 00087678 e 
ND A she ene een ee aaa QO RT OA Oe 2 5th ee ae, 
; ENDS % IF ENTERING NEW VALUE 00087682 
: ESPFLAG $= 13 % NO ROOM IN TABLES 00087684 
3 x enemrnrTnnnees 81 606. 9 if «1 ol eee eae pee ae ee 
‘ END PROCEDURE ENTERESP; 00087688 
: ELEN AMSA ALANS SENTRA NASSAR AAAS EE ERE R EES BANE RE OOOET 100 
REAL PROCEOUR ANC PTR ACKWOR MP vp AORKEND ADRS ePNTR) 3 00087800 pera ciate as 
u BR i ei III UII IO III IOI IGG IOI IIUIOIIG IO ok in iei itn #400087810 
i VALUE Salant delgado 00087820 
7 REA PTReSTA KWORD MPVALUE »s WORK PADRE NIR3 00087830 Prt 
to BEGIN LABEL DUMMY 00087900 
qu REAL STREAM PROCEDURE SCNCPTR» STACKWORD*sCOMPVALUE* WORKENDADRS* PNTR)3 00087910 


N2 VALUE COMPVALUEsWORKENDADORS; OO08s8000  ——— 
n BEGIN LOCAL SVsDVeTS LABEL BLNKS*EXIT 00088100 
14 % PUTS A TOKEN INTO STACKWORD 00088200 
hs % RETURNS 12293 OR 5 FOR ALPHANUMERTC#NUMERIC*SPECLALZEND OF RECORD 00088300 —__ 
hs DIs=WORKENDADRS$ OStsLIT LEFTARROWS % MARK ENO UF RECURD 00088400 
be SriePTR3 SrssSr+53 SIlssScs * STARTING AUDRESS FUR SCAN 00088500 
be % VOIn I a in eet See NOMA OO. oc sea tap cae 
9 BLNKS?: 00088700 
ia IF SCs" " THEN & IGNORE ALL BLANKS 00088800 
: GPa BS See eRe 90088900... pital Tei 
ea SIt=SI413 GO TQ BLNKS; 00089000 
P END} 00089100 
Sce's" TH ¢ NURE A SOMM AS Se a eats VA afte 8 te 
P BEGIN 00089300 
ps SIlt=SIl#13 GO TO BLNKSS 00089400 
B7 ND 00089500 -_ 
pe SVteSTs STsslLOc SVS OLssPNTR$ DSiFWOSs SypsseSvs Pp tESTACKWURDS 00089510 
IF SC = LEFTARROW THEN &% CHECK FOR END UF RECURU 00089600 
BEG 00089700 
SViaST3 STteldc: $v3 S1:2$]45; 00089800 
OV8sDIs DI%=LOC WURKENDADRS3 DliaDI+53 00089900 
IF 3 SC = DC THEN % END OF RECORD 00090000 
BEGIN 00090100 
DIt=DVs DStS7LIT*B000000"; tsLIT LEFTARRGW; 00090200 
TALLY%=53 SCNESTALLYS S1l225V3 GU TO EXIT 00090300 - 
ENDS & 00090400 
SIssSvs DIteDVve 00990500 
END3 % IF LEFTARROW 00090600 = 
IF SCSALPHA THEN IF SC LEQ "9" THEN & LETTER OR CIGIT 00090700 
BEGIN 00090800 
FSC GEQ "Qo" N IF S EQ "9" THEN; 00090900 — eee 
IF TOGGLE THEN x DIGIT STRING 00091000 
BEGIN: 00091100 
A Res NE9TA j ODE FOR D TRIN OOO91200 
TALL Y8313 SIseSlels 00091300 
Aaa SC GEQ a THEN ieee LEQ "9" THEN 00091400 
M OO ofe ote eineh a SS 
aTTTEey TALLYIETALEY SEDI 00091600 
a eae Brat cue ries T UCTS GO TO EXIT; 00091700 
ND 00091800 
TALLY 8343 SCNS=TALLY: = "CODE FOR ALPHANUMERIC STRING 00091900 
OVIZ0I3 ha che a ee DIe73 TALLY?=03 00092000 
i 0 ; OO00O9 Ye coe 
ia a IF S8¢ GTR COMPVALUE. THEN. JUNE. DUT? 00092200 
any DStsCHR) TALLY TALLYe1)3 00092300 


TEmTALLYY SVtSSTS SitalOe Ts SleaSte N12 Ovi DS 


ONO009 2400 


SS ee 


SItzSv3 
63CIF SC=ALPHA THEN ELSE YUMP UUT, 
R OMF a) JE a) \ P Q > s + 3 
GO TO EXIT} 
ENDS % IF ALPHA 
a « ’ a a 
DSt=7LIT"BO00000"3 DSst=CHR3 & RIGHT JUSTIFIEL 
EXIT: 

Syvt2xSJ3 Sysz2 0 : =PTRs OStswOSs ¢ NEXT ADDR 


END STREAM PROCEDURE SCN} 
SCANS aSCNCPTR»STACKWORD » COMPVALUE »NORKENDADRS »PNTR)3 


NO PROCEDUR An 


00092500 
00092600 


07 0117-2) 2 01 6 Eee eee ea 


00092800 
00092900 


000931400. 
00093200 


3S 00993300 _ 


00093400 
00093410 


00093420. 


a ee Bs 
TURES IOCIIIIIOUISOII ISIC UOO OOOO a SIA HA HAREM AER EAR HHE HEE EOO09I5OO 


BOOLEAN PROCEDYRE YOUFINOAVERBCSTACKs VERBLOC »NUMOF VERBS)3 


EAMAANAMARSERAREAA RARER RANA ERE RH REEMA RAE A EERE eR eRe EH EOONIIOIO 


00093600 


VALUE NUMOF VERBS3 REAL STACKsVERBLOC*NUMOF VERBS; 00093620 
BEGIN 00093630 
LABEL L3 Q0093640 2 
BOOLEAN STREAM PROCEDURE YOUFNDAVERGCSTACKs VERBLUC*+NUMOF VERBS) 3 00093700 
VALUE NUMOF VERBSs 00093800 
BEGIN OOU93I9OO 
LABEL FOUND» AWAY3 00094000 
LOCAL Ts S$AaVO3 00094100 
DI #= VERBLOCS SI 32 ACK O00948200 
NUMOFVERBSCIF SC GEQ@ DC THEN 00094300 
BEGIN SAVD != ODIs Syt=Sr"13 oO] ts LOC Ts; Ul t= DI + 73 00094400 
t= } : ae: . es ect pe Nas 22 AN Se Te oct, 
IF T SC 3 DC THEN JUM@ GUT TO FOUND3 00094600 
Ol t= Savon; 00094700 


NQ beta oes ah ay 00094800 


Sr t= STACK; 


Or ** DI + 15)3 00095000 
 AWAY3 me a ee OUI OO 
FOUND: SI t= SAVD3 SI 32 SI + 73 DI t= STaAcK3 00095200 


® REPLACE VERB WITH DEFINITION 


DS t# WOSS TALLY tx 1; 
YOUFNDAVERBSsTALLY3 
AWAYt END OF YOUFINDAVERB; 
YOUF TNDAVERB t= YOUFNDAVERB( STACK» VERSLUC »NUMCF VERBS); 

END PROCEDURE YOUFINDAVERRBS 


00094900 


00095300 


Sn tt a a A A EA ppp renner 


Q009540Q 


00095500 
00095510 
00 


TR EE Ra NRT HERA EHR EAH REAAA RE ERE RHO0U9SOOD 


REAL STREAM PROCEDURE ADDRESS(W)5 
BEGIN SItsws ADORESS!sS1; NDB 


STREAM PROCEDURE STICKCP» As ENDADRS)3 VALUE Pes ENDAURS3 


00095700 


A A Le 


00095800 


BERGA GIOIA AREA KIT AEE ARERR REAR EEEREOOO959OO 


00096000 


AL ECUIOUEUOIIISUIISIUIGIOHIIIIUUISITIIIGUIOUIIUIIUBIOOU HOE niin stat 00096100 


BEGIN LOCAL SVsOV3 LABEL EXIT; 
% TRANSFERS SS MESSAGE FROM WORK ARRAY 
DIs=As OSMEBLIT" "sy Syssazs OSt514 WOS3 % BLANK 


STtsPs DIssaz 


AQ z ARKO W Ba 

BEGIN 

SVSeSI3 STtseLoc SVE SiteS14+53 
NVEsd DrtxiLo NOAODR DL eeOl4+53 


IF 3SC=pC THEN JUMP QUT 2 TO EXITS ®% END UF RECORD 


STt=SVs Di teDvs 
D 


WORDS 
DItsENDADRS# % INSERT RECORD MARKER DSts_I7 LEF TARROWS 


00096200 
00096300 
00096400 
00096500 
00046600 
00096700 
00096800 
00096900 
00097000 
00097100 
00097200 


OStsCHR))3 
EXITs 


ea 


END STREAM PROCEDURE - 


00097400 
00097500 


Se OOP FOO oo 


Data Documents/inc. 


) ® 
Foe ete tte Ta TW III IO IO ia ta keto inink ik 00097610 
@ BOOLEAN PROCEDURE FIXERKOR(SADKS/LAURS) 5 00097612 @ 
VAL. SADRS»sE ADRS RE A ADRS aADRs3 eS he re a OOO Gap de ccs etree thet Be 1h, 
1 BEGIN LABEL DUMMY3 00097614 
@. BOOLEAN STREAM PROCEDURE FXERROR(SAGRS*E ADRS )3 VALUE SADRS»EADRS; 00097615 
3 % SADRS IS STARTING ADDR OF USERS INP RECORD 00097616 
4 % EADRS IS ADDRESS OF END OF USERS INPUT 00097618 
@| % ROUTINE CHECKS SYNTAX OF "FIX" REQUESTS 00097620 
6 8 N OCA D3 Ag x ; NO097422 
y STtsSAORS3 TALLYs 243 00097624 
@ aoe SC LSS "Oo" THEN eg ie ELSE JUMP OUT)3 % SCAN TO DIGIT 00097626 
9 N 0 aE © 8 6 ©) Peed 
i BCIF "SC LSS “won THEN JUMP bUTSIF oC GTR "9" THEN JUMP OUTS SI s=S1+12300097630 
er 20CIF SCE” “ THEN SIt=SI+1 tye JUMP OUT)3 & SCAN TO CHR. 00097632 
p2 GG NG PLY fas 
" DresLOC DOS DItsDl +73 BetacHAl % SAVE DELIMITER 00097636 
@™ IF SC#D0 THEN GO TO EXITS ® NO STRING 00097638 : 
fs _ IF SC = LEFTARROW THEN OOS HBO 
: BEGIN 00097642 
e” SVt=SI3 SlselOC SVs S1lt=S1455 ULte2LOC EADHSS YIt=D1 453 00097644 
ne __IF_3S8C=DC THEN & LEFT ARROW REPLACEMENT 00097646 = sss 
9 BEGIN TALLY&=0% GO EXIT3 END ELSE S1s=SV3 00097648 
@ ¢ ENDS % IF LEFTARROW 00097650 
1 63¢IF SCSLEFTARROW THEN & CHECK FOR END OF RECORD 00097652 
; BEGIN 00097654 
@ 7 SVt=SI3 SIs=LOC SVs SItssl+5s OL tsLoc EaADKSS Ol ssDl+53 00097656 
___If 38C=p¢ THEN JUMP OUT TO EXIT ELSE SJs=SV3 _ 000974658 sats 
P END3 00097660 
@ * IF SC NE@ O THEN SItSSi+1 ELSE JUMP OUT); 00097662 
B7 IF TOGGLE THEN GO EXIT3 ¥ MISSING 2ND DELIMITER P 00097664 ae 
pa TALLY2=03 . 00097666 
@ EXIT! 00097668 
i FXERRORS=TALLY 000 670 
p END STREAM PROCEDURE FXERROR} 00097672 
@: FIXERROR?#F XERRORCSADRS*EADRS) >» : 00097674 
i ND PRO DUR XE RRORG ” OOO97é74 OO 
pA 8 ie de ee de ie ie tk ati ede iS RO ITT ROI ik ok tok tk 00097700 
or PRUCEQDURE SCANNERCSTRTADRS» AsLCWFENUADRS)$ VALUE STRTADRS» ENDADRSS 00097800 
BG Bee ke ee ke ek ak a ka kk I H0097900 = a 
ix REAL STRTADRSsENDADRS; BOOLEAN LCWs ARRAY ACO]3 00098000 
@ * BEGIN . 00098100 
ia 7 AND R OOUSB8200 
% RETURNS TYPE OF INPUT IN ACBASEI,(323] = 00098300 
Ya % O = COMMENT ( INPUT STARTS pa QUOTE ) 00098400 
SW 5 


00098500 
2 NUMBER. (€ INPUT STARTS WITH A NUMBER 2 00098600 


% 
@ % SPECIAL ( INPUT STARTS WITH A’ SPECIAL CHARACTER ) 00098700 
% SMSG_¢_ INPUT IS AN SS MESSAGE ) BBO 
% 5 = NULL INPUT 00098900 
eh % WHEN INPUT TYPE = 2 ¢ NUMBER ) * 00099000 
% _ACBASE+1] = OCTAL NUMBER 00099100 
%  . ACBASE+2) = 00099200 
@ Fr % 0 3 MORE INFORMATION FOLLOWS NUMBER 00099300 
B % 1 = NO_ INFORMATION FOLLOWS NUMBER ( DELETION )D 00099400 = 
: % 3 = A "FIX" REQUEST 00099500 
@» % RETURNS NUMBER OF TOKENS IN STACK JN ACBASEJ,£33215) 00099600 
P % RETURNS NUMBER OF "VERBS" FUUND IN ACHAS 8345 00099700 
BS “% FOR EACH VERB «- 00099800 
@ % AW TVERBLOCATION 7, C338i5) = NUMERIC CODE: ASSOCIATED WITH VERB 00099900 
e A CVERBLOCATION Jef) 8315) = NUMBER OF. PARAMETERS OR TH RE nol00n00 


Data Documents/Iinc. 


2 ry a 2 : Gl) eS eS eS 5 5 3 3 x 


REAL I» Ke Ps So MSs TYPEs VERBS» PLUSOURMINUSS 00100100 
ae ERRFLGsPLUS3 00100200 
AR OM QOKFERPARAMS» O.Ns3 NE AKIN NOE Q _O0O100300 
FIXCHECKs SETERRORoFINISH>EXITS 00100400 
DEFINE ERRV ® 3"000000000000036"43(114612183 - 00100500 
DEFINE SEQV = 3"Q00060000000065"83L1t46iele, 00100600 eats 
MS 73 S $*® BASE + 43 & INITIALITZt& STACK INDICES 00100700 
P t= STRTADRSs % ADDRESS OF wORK(1]; 00100800 
NULL _ 00100900, 
IF TYPE? sSCANCP SACS] a" Z",ENCADRSs SCANPTR(E S*SBASE))25 THEN % EOR 00101000 
BEGIN 00101100 
ACBASEJ ts 0 &@ S6324583)5 %& NULL RECORD 004101200 
GO TO EXITs 00101300 
END3 00101400 
YPE= HEN % INPUT SPARTS WITH NUME OoO101s00 
BEGIN & CHECK FOR DELETION CNUMBER FOLLOWED BY END OF RECORD) 00101600 
KEMPS ACSHS41) ts 00101700 
wit PIRES= i = = ; 8 Ly de 8 eae eee 
ACBASE] t= 2 & 2£3845933% &® OCTAL NUMBER CODE AND STACK SIZE 00101800 
GO TO cele 00101900 
NDS 4% RD AR ATH MHF R ee OO TOA OD Oo ee ae 
Ee PER GET SIESTA as otra SNORE ER RS MOC ERET STIT SEP 
IF LvEES THEN % ALPHANUMERIC TOKEN 00102200 
STARTCOMS 00102400 
PLUSORMINUS?=03 Seared 
e NO A RA B B Q N PRG rie N RB oe i ea 
BEGIN éeicazoo 
MS t= $3 % SAVE STACK LOCATION OF VERB 00102800 
—__VERBS t2 VERBS + 13.% INCREMENT VERB COUNy CO gatoeeno.. 
IF ALS]¢£3381535VSSMSG THEN % SS MESSAGE 00103000 
00103100 


BEGIN 
RBS NEQ 


N GO TU SETERROR# & MUST B 


E101 eee 
IF SCANCPsACS#2S41]5"9"sENDADRS,»SCANPTRES=SBASE]) GTR 2 THENO0103300 


GO TO SETERROR; 00103310 

STICKCPelLsENDADRS)S *% TRANSFE ESSAGE TQ ARRAY *L" 00103400 
ACBASE) t= O @ 4€324533)4 4 CODE FOR SSMSG 00103500 
GO TO EXxITs 00103600 

ENDs % IF SS MESSAG OOlU3700 
IF BOOLEANCACSI,.£821)) THEN &% "SPECTAL™ VERB = STOP SCANNING 00103800 
IF VERBS NEQ@ 1 THEN %@ "SPECIAL™ VERBS NUT ALLOWED AFTER "3% 00103900 
ACSJPsVERRTABLECACS J) eC92¥JJ5 GU TO SETERROR; 00103920 
END ELSE GO TO FINISH3 00103930 

00 RPARAMS3 090104000 = 
IF (St#S+1) GEQ PREVRC: THEN & DONT. CLOBBER BTACK 00104100 
BEGIN - 00104200 
QOLONG? ERRSW ta -"T0O Ht} 001048300 
MSGPTR ts 303 00104400 
GO TO SETERROR; 00104500 
ND; 00104 be the. as 
IF Pe oer Pen Sans @ FENeAE Re MSG ENP AE St ee hsed ats THEN 00104700 
GO TO FINISK3 00104710 
F TYPE#3 THEN % PARAM TER TS SPEC AL CHARACTER 00104800 _ 

BEGIN 00104900 
PLUSORMINUS t= 03 0c105000 

IF ACS] = "3" THEN % ENO OF LOGICAL REQUEST 00105100 - = 
: BEGIN 00105200 
SNEAKING fe TYPE 14SCANCP+ALS2+"Z"sENDADRSe SCANPTRE S=SBASEI #5 THENOOL 05300 
Eero GO TQ FINISH3 : 00105310 


oon~x oO TD FF Wn = 


\ en: nS 
5S a 


Data Documents/Inc. 


2 ~ 5 


ae oe ee ee 2) 


US 
nn 


END) X IF3 "4" 
ACS]="%0" THEN % A "FIX" REQUEST 
BEGIN 


IF TYPE 12 SCANCP AL S109" ENDADRS> SCANPTRUES=SBASED) NEQ@ 2 THEN 
GO TO SETERRORS 

IF (€$tsS+1) GEQ@ PREVRCW THEN GO TU 
ACS] $8 33 % DENOTES A "FIX" 
ACBASE)] t8 2. & 2038451313 & "FIX" CODE AND pans COUNT 

0.70 EXIT3 

END} ®& IF "FYX" 
ACSIJs"3" THEN GO TO NULL} 


my thee bf  % 


GOLUNGS 


%’ INPUT STARTS WITH "3" 


BEGIN : 
ACBASE) ta. 03 
30 TO EXITS... 


IF TYPES1 THEN & ALPHANUMERIC TOKEN FOLLOWS "3" 00105400 
BEGIN 00105500 
ALM t= ACMS) & (S=MS* Bi 35331515 % PARAMETER COUNTOOLOS60Q ss 
MS +3 S$ *€ NEXT VERB. LOCATION 00105700 
a0 TO REARS COM 00105800 
y 2 HANK 0) OW wee NOLOS5900 sis 
IF TYPE= 3 THEN a SPECTAL CHARACTER FOLLOWS "s" 00106000 
BEGIN 00106100 
sr S iat NG AKING ¢ NO g 00 620 
Ik ACSl]atten THEN GQ TO FINISH 4 SGRNENT AFTER "5" 00106300 
IF ACSJate” ee GQ Tg GENSEQS % RESEQ SHORTHAND 00106400 
Nid 4 a -MARA JW bi hd OOLOb6BS500 
GO. TO SETERROR; < NOTHING ELSE ALLOWED AFTER "3" 00106600 
ENOs &% IF PARAMETER = "3% 00106700 
ACS)a"ea" 7 PLUSORMINYUS3= QOO1O6ROO ss 
IF ACSJs%e" THEN PLUSORMINUS!s33 00106850 
GO LOOKFERPARAMS$ %-SAVE ALL SPECIAL CHARACTERS 00106900 
- ENOS % IF PARAM IS A SPECIAL CHARACTER 00106950 = 
IF TYPE=1 TREN % ALPHANUMERIC PARAMETER 00107000 
eae 00107050 
QRM = el © 6 leone ge net 
a POARFERPAALWG) 00107150 
oye & IF ALPHANUMERIC PARAMETER 00107200 
—— OOL07 250 ne 
IF PEUCDRATNGS GTR O TREN #% SIGNED NUMBER 00107300 
BEGIN 00107350 
t= SORMIN 246 % 3 MBER A002 
IF NOT PLUS THEN atSis5-1] $3 ACS+1)3 PLUS 483 FALSES 00107450 
ENDS 00107500 
ORM IN 8 6 OO} 0 Nee 
GO LOOKFERPARAMS; 00107600 
ENDs %& IF A CANDE VERB 00107650 
MATCHCACS 6% " Gu Ti PCK: 
GO TO SETERROR: % very STRING NOT A VERS GR A “FIX 00107750 
END3 % YF TOKEN IS ALPHANUMERIC 00107800 
TYPES3 THEN & TOKEN IS A SPE CLAL HARACTER OOLOFraSO=—C‘CS 
BEGIN 00107900 
IF ACSJ="+" THEN & SEQUENCE REQUEST 00107950 
BEGIN OOL08000 
PLUSORMINUS !2 33 % NEXT PARAM WILL BE INCREMENT 00108050 
MS t= $+ % MARK STACK LOCATION OF "SEQ" VERB 00108100 
VERBS #@ VERBS + 13 PLUS t* TRUE; 00108150 = i tetcsen 
ACS] t= SEQV3 & REPLACE "+" WITH SEQUENCE VERB COOE 00108200 
GO LOOKFERPARAMS; 00108250 


00108300 
00108350 
00108400 
00308450 


00108500 


00108510 
00108550 


00108600 
00108650 
00108700 
00108750 
00108800 
00308850 
00108900. 
00108950 
00109000 
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5 & op 2 G & on 


pe SSRESE 


: 


nee tn ane sen ee tenn 


ENDS 00109050 
SETERROR! 00109100 
ALMS+' g ; * PLA RRONE : PARAM OS ON 00109 
ACMS) tx EARV; % CALL ‘ON ERROR ROUTINE ‘ 00109200 
yENee tn VERBS * GG : : 00109250 
5 ts MS + 24 % ADJUST FOR CORRECT PARAMETER COUNT 00109350 
ENDS % IF TOKEN IS A SPECIAL CHARACTER 00109400 
H wee ee OO VOOR RO 2 ts 
ACMS] ta ACMS] & (S@MS=1)018833215)3 % PARAMETER COUNT 00109500 
ATBASE] te (S*BASEW1) & VERBS 18333015) @ 00109550 
EXIT! 00109650 
END PROCEDURE SCANNERS 00109700 
ERARRARAREERERRRARAARERE ES (AER RRERRRRR REESE RRRRR ERE RE RERRERESR ERR CLES ** 00109 Qin 
BOOLEAN STREAM PROCEDURE CHECKBITCNSLST)3 VALUE NG 00109800 
pape ee SKIP SR3 SKIP .N SB3 dF SB THEN TALLYSs43 00109900 


KA ii A.D REAM PRO D CME CAR O0 
COREE SPE EEPTAERITT SST OPRTT PONT EPEC TRERTET SUT TOL TTT TeTTOrITT ceTrerTET Errore 


ae PROCEDURE CHANGEWHICH(A)S ARRAY ALO); 00200100 
7 Ts Ss» WHICH} 00200300 
LABEL BADPARAMs GETYPE» BADTY PE» BADNURD# EXIT: 00200400 


B00 AN R q: 00200410 


IF T t= ACSREG*=BASE™ALCBASEII,FF 2 0 THEN 00200500 
BEGIN WHICH t= 63 ACBASE) t= "NOPARAM"3 00200600 
R = _ BA 3__M PTR = Og —_ OO2Z00700 
GO EXIT 00200800 
END; 00200900 \ 
= OF , waits 00 201 000. pitas ah Diese a es 
INCCSREG); 00201100 
gee T = 1 THEN 00201200 
IN Saat ashe ia Gyles Sige eae ence a NS 
MATCHCWHICHIZORALSREGI(OL6842] »"PASSWOR") WHICH385 00201400 
ELSE MATCHCWHICHs "NAME ") WHICH $86 00201500 
SE GO BADPARAM; 002 anaes 
GO EXIT 002023400 
ENDS 00202200 
p RCA R f " D " 00202300 = 
BEGIN WHICH %® 13 00202400 
GETYPE?! 00202500 
MATCHCALINC(CSREG)] Cota2je"TO *) INC CSREG)3 00292600 
IF ACSREG),C393) NEQ O THEN 00202700 


BEGIN 00202800 


IF ACBASE*1] ts ABS CFINDANOAD( ALSREG) > TYPETABLELII» 00202900 
NUMOF TYPES? z= &. Ce 00203000 

BEGIN % 00203100 
BADTYPE? oi 00203200: 
WHICH t= 03 MSGPTR t= 203 00203300 

GO EXIT 00203400 
END 00203500 
END ELSE , 00203600 
If ACSREG)] = "2" THEN 00203700 
BEGIN ; : eet : 00203800 | 
IF ACBASEF1) ts ABSCFINDALETTERCACINCCSREG) J» 00203900 
TYPETABLECLI]» NUMUFTYPES)) 00204000 

= 0 THEN GO BADTYPES 00204100 

END ELSE ao EAP ARAM? 00204200 
G0 EXT. . oe 00204300 
ENO}... * OF. AYPE ANALYSIS 00204400 
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co ON MD TF FF WHY = 


5 = 3 
oS 2 4 & 


A = 


31 


7 6 4, 0 a zy 2 
o b 5 &® YU 3S 3 


IF ACSREG].(3%3) = 0 THEN GO BADPARAMS 00204500 
MATCHCACSREG] 6(6842)]e"SOURCE ") 00204510 
B N pe ee SOC OAS TS ee ee 
If OBJ THEN GO BADPARAM3 00204520 
SRC $* TRUES INGCSREG); 00204525 
NO 00204530 
MATCHCACSREG) .C&t42]s"QBYECrI ") 00204535 
BEGIN 00204540 
R HEN GO RBADPAKAM; 00 ee Be ee 
OBJ t= TRUES INCCSREG); 00204550 
END3 00204555 
= se OR ONBNO! 
NUMOFRESWRDS) NEQ@ O THEN 00204700 
BADWORD8 00204800 
B Bie OO COMO OC ee 
WHICHI=O3 MSGPTRte293 GO EXITS 00205000 
END} 00205100 
BASE] $= ACSREG), £62421; % MUST BE FILE NAME 00205200 
WHICH %= 23 00205300 
MATCHCALINCCSREG)),COS42)o"TYPE ") GO GETYPcs 00205400 
fy ry Fi a : Q " a’ Me AOS 500. BANE ty ody rabetuiviatn dey A aca as ee Sh 
BEGIN WHICH 33 43 00205600 
INCCSREG)3 00205700 
END ELS H] ts 33 Pamir ©? L914 * b> 1-0 0 SRS a ar eran eee 
MATCHCACSREG] ¢l6%42),"TQ ") INCCSREG); 00205900 
IF ACSREG].C3%3) = 0 THEN GO BADPARAM3 00206000 
IF FINDAWORDCALSREG]» RESWRDTABLEL1], 00206100 
NUMOFRESWROS) NEQ O THEN GU BADWORD3 00206200 
IF COMPARCAESREG].(6942],"FacTOR ") OR 00206205 
COMPARCACSREG), £644 "SF ") THEN O0206210 Sa eh Pt Pres rs th 
BEGIN INCCSREG)$ WHICH t= 73; & CHANGING SaVE FACTOR 00206215 
MATCHCACSREG] ol68ao)}e"TU ") [NCCSREG)# % UPTIONAL WORD 00206220 
ACBASE+1I9=IF SRC THEN 1 ELSE IF UBY THEN 2 ELSE O03 00206225 a eS a hee 
IF ACSREG],€393] = 0 THEN & NUMBER 00206230 
BEGIN ALBASE+2] t% aLSREG]} GO TO EXIT3 00206235 
END ELSE GO BADPARAM} 00206240 
ENDS % IF "FACTOR" 00206245 
IF CACBASE+1 ]#eACSREGI,(6%42)),(4236) NEQ “" ™ THEN & TOG LONG 00206300 


BEGIN 00206 ee 
WHICH?=03$ MSGPTR#2423 GO EXIT; 00206320 
END; 00206330 
(Ti 00206400 Se nee at cs 
IF WHICH NEQ@ O THEN 00206500 
IF T NEQ SREG = S THEN 00206600 
BEG WH = 03 REG $= S+T3 QOQ0206700 ss 
MSGPTR t= 4103 00206800 
END ELSE 00206900 
B 
IF WHICH NEQ ? AND (SRC OR OBY) THEN 00206920 
BEGIN 00206930 
ACSREG]:=(IF SRC THEN "SOURCE " ELSE "OBJECT "78 6£344533]3 00206940 2 
BADPARAM? 00206950 
WHICH? #03 MSGRTRS 883 00206960 
NDS 00206970 
END3 00206980 
ERRSW %8= ACSREG}3 00207000 
CHANGEWHICH !2 WHICH3 00207100 Ceaateos 
COMMENT. COMPILER CHECK} : B® 00207110 
TF WHICH EQL 1 OR WHICH EQ@L 2 THEN % COMPILER NAME SPECIFIED 00207112 
rl a AC BAS re » ¥. i TRIC. DL AA A at Jah 0020 
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2 y + * 5 a gy Th 3 Th 5 Ry 3 7 
> & op b So © oh 3 oe 


(G2 6 


BEGIN CHANGEWHICH 3% O§ MSGPTR 22493 END} 00207116 
END OF CHANGEWHICR3 00207200 
Sew kkeke tee eee kee keke eee ee ea ee a KEE RARER KEE QO224H4on 
BOOLEAN PROCEDURE TIMECHKCLCOWe ADs BOOLEAN LCWS ARRAY ALO] 00224500 
PRCT C SEC SESS ECCS EC SECCSECALCICESLS CSCS SESE CC SO LOSSSCLOCEOCSC EE TT 00224600 
OMM j y Reece ee eererere ease 
BEGIN INTEGER TIM1eTIM2*SKP3 BOOLEAN OKs LABEL EXITS 00224800 
So RESPEC ERRORS SCE RCC SES SSS Lee 2 00224900 
_BOOLEAN STREAM PROCEOQURE TIMCK(STRGsSKPeTIM})5 VALUE STRGS = OOO 
TESST T CTC CTC CSCC IC STi T eT cea ee 00225100 
BEGIN LOCAL SKS LABEL EXITS | 00225200 
Site_OC STRGS SytsSy+43 & POINT TO 24 BIT "TIME" STRING 00225300 
UIasLOC STRGS DSts4 CHR; & EXTEND TO 48 BITS 00225400 
SITs*SkKP3 OL1s#LOc Sky LSsswOSs % NO OF BITS TO SKIP CCRNT,TIME) 00225500 
SIssL0C STRGJ SKIP SK SBs % P T_TQ CURRE GUR se OG CG 960 0 it en * eee 
If SB TREN TALLY#a13 TIMCKS# TALL YS TALL Yt2SK3 00225700 
24¢1F SB THEN JUMP CUT ELSE * FIND 1ST "ON" BIT POSITION 00228800 
BEGIN SKIP SBS TALLY&§aTALL¥+i3 END)3 % COUNT FACK B SKIPPED 00225900 sss 
IF TOGGLE THEN ELSE GO TO EXITS & NO SITS "ON" 00226000 
SKSaTALLYS SI3s*LQC SK4 DI tsTIMis VorewDSs & 4ST "ON" BIT POSITION 00226100 
TALLYSSTALLY*+15 % POSITIG OF NEXT BIT on © (002262002. oe Ae ee 
SKEsTALLYS SIS*L@c SKs DLsaSKPs DOStznOs3 00226300 
EXIT: END STREAM PROCEDURE TIMCK3 00226400 
RERAEEAALERESELAPERAL ELLE ELE LLL TE see Ne ante ee tas eae 
REAL STREAM PROCEDURE NEXTIMECSTRG*#SKP»REM)3 VALUE STRGsSKPsREM; 00226600 
EERE EEE KEKE KEKE KKH EE 00226700 
BEGIN t=L0 R tSSr+as DLFslLUC STRGS Sz=4CHRS & PN CAOBO 0.2 ic i ee es ee ee 
Olts_OC NEXTIMES SlteLoc STRG} SKIP SKP S83 % POINT To NEXT BIT 00226900 
REMCIF SB THEN BEGIN SKIP SBF TALLYSsTALLY+4s END 00227000 
le his CATA OO cic od he eh ai 
TALLYS=TALLY+SKPS NEXTIMES=TALLYS 00227200 
END STREAM PROCEDURE NEXTIMES 00227300 
Lace eee eee eee eee eek AEE O02¢ OOO 6 ce ee ee es 
PROCEDURE TIMEMSGCSTRTIMEsFINTIMEs OK 23 00227500 
PERLE SSSCCCCSLICSCCCOSTSOCITLC CCITT CLL 00227600 
VALUE STRTIMESFINTIME,OKs INTEGER STRTIMESFINTIMES BOOLEAN OK 00227700 
BEGIN 00227800 
% ee ee ee eae teat de ie i ede ae ie to ee i Kk or 00227900 
STREAM PROCEDURE MSG1CWORK)3 00228000 
Gee eae eke hawk ee eke hhathak 00228100 
BEGIN DI&#WwORK3 : 00228200 
OSt=G49LIT"SORRY,YOU ARE NOT SCHEOULED FOR TIME AT THIS HOURS 00228300 eee 
END MSG13 00228400 
ce te He se te te ee tee Fe de te tte de TOR ae sa te 00228500 
STREAM PROCEOURE MSG2(WURK»STRIIME*FINTIME )s VALUE STRTIME*FINTIMES 00228600 7 
Lee w eee ewe ee ee ei ke 00228700 
BEGIN DI ##wORK3 oe : 00228800 
DSta33L17"YOUR NEXT SCHEDULED TIME IS FROM 3 00228900 3. oe 
St9sLOc STRTIMEs pSs=4 pecs OS*=4 LIT " TO "3 00229000 
STt*sLoc FINTIMES O0S:=4 DEC 00229100 
NOM ; 00229200 2 
SEC EETELIETIC CEL TLL ETE TL. 00229300 
STREAM PROCEDURE MSG3( WORK); 00229400 
SEREEEALLAEAEREARARAEL EERE T LAER SE 00229500 
BEGIN DI2#wWwORK3 00229600 
DStsQOLIT*PLEASE CALL BACK AT YOUR SCHEDULED TIME,"3 00229700 
ND MS 00229800 = 
TCS SEC CEES ESET CCAS CCC Cece A a ee 00229900 
STREAM PROCEDURE MSG4CWORKsFINTIME)S VALUE FINTIMES | 00230000 
ELAM AL ERA Rk A AA Ck eed Le 00230100 
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1 
2 
3 
4 
5 
6 
7 
8 
9 


Cee ees 


BEGIN DI%=wORK3 00230200 
DSt=42LIT"YOU ARE SCHEDULED TO USE THE SYSTEM UNTIL “3 00230300 
Slesio h 7 =4 DEC} 2; penne 
END mSG43 00230500 
VHRR RHEN ENE . ’ 00230600 
IF o N piven DOR ketieee ean ie 
BEGIN MSG4CWORKsFINTIME)S TwWXOUTCLE »WORKLOJ24652)3 END ELSE 00230800 
BEGIN MSG{CWORK)S TWXOUTC(LL»WORK(01]54922)5. 00230900 
M WORK RT IM N M ; WX NRK H ; OO ¢ O00 sh Soe 
MSG3CWORK)S TWXOUTCLEL»sWORK(OJ24022)5 END} 00231100 
ENO TIMEMSG} 00231200 
SELSSSLAREASESELSELELTCALLSEL ALLL SS tee : 00231300 ea 
‘SESE SESE RSAC ESE CCL ESE CeCe es 2 002€31400 
IF REALCBOOLEANCTIMELIMITSef24%24)) EQV 00231500 
BOOLEANCREALCNOT FALSE) .€243224])) FQL REALCNOT ALSEF) % ALL ON 00231600 — 
OR TIMELIMITS,C249241] Equ O THEN & NO BITS ON ‘ 00231700 
BEGIN TIMECHK&SsTRUES TIMERESTRICTBITSAREALCFALSE)3 GO EXITS ENDS ' 00231800 
TIM1#2O3 TIM28#SKPt eT IME(C1)/216000 = 0.55 % CURRENT TIME 00231900 eave Nn od, 
UKs sTIMCK(TIMELIMITSsSKPsTIM1)3 TIMpsecTIMy, MOD 24) x 4003 00232000 
TIM2% aCNEXTIMECTIMELIMITS*s SKPsTIM2$s24"SKPeT IM2) MOD 24)x1003 00232100 
TIMEMSGCTIMg*eTIM2s0K)5 % SEND APPROPRIATE MESSAGE 002; 00 eee te wheces: 5 real 
IMERESTRICTBIT 8% REALCTRUE)S NOTIFYBIT = REALCFALSE)D3 00232300 
NOTIFYTIME t= OF TIMECHK t= OK3 00232400 
EXITs END PROCEDURE TIMECHK copie ta  OOR SZ SOO oe 
AOI IIIS IOI IUISISIISII ICID IOI II IG ninericinrine#® 00234600 
PROCEDURE QUTPUTNUMBERS(LCWsA)s BOOLEAN LOW} ARRAY alods 00234700 
Akheheeee teeta tee ede eee EA ee O02Z34R00 
BEGIN 00234900 
% FORMATS SEQUENCE NUMBERS FOR SPECIAL DEVICES 00235000 
x "ee AR REE A ae O0 
a qn HOMES CURSER € CONRAC UNLY ) 00235200 
a yu LINE ERASE C CONRAC ONLY ) 00235300 
x ">" H HARA —R peice OO SID HOO 
% QMK SHIFT IN CHARACTER 00235500 
b har il SHIFT CONTROL CHARACTER 00235600 
Wa A f) ONRA ON ore 00 Gee 
% ten CARRIAGE RETURN 00235800 
% ARROW ENO OF TEXT CHARACTER 00235900 
REA PTR NC 3 BOD Al "3 OO236000 
Recor ern eestee erent enree aan eeetoretereesrotereeevernevesesserseee 00236100 
REAL STREAM PROGEOURE ADDRESS(W)3 00236200 
: N ST%e@Ws ADHR ta "ND 00236300 
Re eC CRORE NANO E OO eee RDER Cae D DE RP OH ae een eeteHesereeneraeteneedssececQ0236400 
STREAM PROCEDURE CONVERTANDFOBMCPTReN)s VALUER N3 00¢€36500 
; ' 00236600 iid nt te 
BEGIN LOCAL VeSv3 00236700 
% CONVERTS SEQUENCE NUMBER TO DECIMAL FORM AND BLANKS 00236800 
: ADIN rus P DAT PTR aT H : ore O69 OO ote aston ee, 
STt=#L0C Ns DIste_lOC vs DS sBVECs DI svl-B;3 OS? s7FILLS 00237000 
SItsLoc V3 OLssPTRs OytsOyp*+5s Vypssve;s 00237100 
B sce" " THEN SIr=SI¢ > O53 =CHR oe 00 Pie Pete 
SVte2DIs SltatLac Sv3 DI tePTRs OStewOS; : 00237300 
END STREAM PROCEDURE. CONVERTANDF ORM; 00237400 
ee ty ah nis rr a wee OO 00 hata emia etvaan ds 
STREAM PROCEQURE PUTCHARCPTReN»CHAR)$ VALUE N* CHAR; 00237600 


Moca re ere ane tance see tare esas tenet ener tereesetonernaseneseresanessees 00237700 


®. IN Siew: : 
% TRANSFERS "NN 


8 PTR OAT FINISH 


SLUC CAARS OT bab 


: O0<¢ R00 
HARACTERS FROM "CHAR® AND UPDATES : 00237900 
ee os sees " 00238000 


TRILDItsObl+5: pltsoce.. _ NO2Z3B1OO 


ett ttre 
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a es ee ( 


wv 
SIt8S1+es STLsSr9N3 OStEN CHR; 00238200 
@ SVtsDI3 SI%=LAC SVs DItsPTR; LS:=wDS; 00238300 < 
ND REAM PRO NUR HAR 3 DOE WO 0 tag a 
LST&sSEQLAST3 INC te INCREMENT? PTR#SADDRESSC WURKCO})3 00238500 : 
e IF DEVICE#BI0S THEN PUTCHARCPTRs1e"s")3 & CLEAR THE SCREEN 00238600 1 
FtxDe BSCONRAC 3 EN FP KHARCPTR "anys & HOME H R R 00238 950 5c ened oe ee ee oe . 
FOR 181 STEP 1 UNTIL 10 DO ¢ WRITE OUT 10 SEQUENCE NUMBERS 00236800 4 
@ BEGIN 00238900 |@ 
PUTCHAR(PTRs2e">#")3 % SHIFT CUT» SHIFT CONTRO pene ° (017-2 4:56) 0 0 A 6 
CONVERTANDFORMCPTRe (LSTSSLBT+INC) D3 % FORMED SEQUENCE NUMBER 00239100 ? 
& PUTCHARCPTRs 29(12)8("4")(3634286))3 & SHIFT CONTROL» SHIFT aut 00239200 /@ 
I 5 O THEN % FURM CARRIAGE RETURN ANO LINE FEED 00239300 5 
BEGIN 00239400 hi 
or PUTCHARCPTRsjs"=")3 &% CARRIAGE RETURN 00239500 @ 
IF | HEN PUTCHARCPT Ryd o"*")5 % LINE FEEL OO Cae Be oe ee 4 
END3 00239700 13 
@ |. END I Loops : 06239800 W@ 
PL ARCPTReis ARROW & TERMINATE STR W 00239900 
CHKSEQNMBRts_ST$ % LAST SEQUENCE NUMBER TO BE TRANSMITTED 00240000 16 
er THXOUTCLLsWORKCO]»2002"1)3 %& SEND SEQUENCE STRIwG 00240400 7/@ 
END PROCEDURE OUTPUTNUMBERS; 00240200 i ci A a oe a oe cs ba 
FANNER ERATE SNEAS REESE ATES NEEL ET ERANEN EN EEEE NA EEEEEATEEEERREREEEETEOOIONDOO 7 
r % . FORWARD DECLARATIONS GO HERE, | 00900100 4 @ 
ERR SESAISSIL ASSESS ESSALT TLE S ETE SALE T ELT ESTEE T EET TT Te TTT ETT TTT T Tee 9 3 is eB are a tees ep oh 24 
b PROCEDURE BYEC(LCWsA)s BOOLEAN LCWS ARRAY ACO)s FORWARDS 00900300 24 
@» PROCEDURE GETSOMETHINGTODUCLCWsA)s BOOLEAN LCNs ARRAY ACO]S FORWARDS 00900400 1@ 
i PRUCEDUR M ORWARDS ———___QO0900500 Spo gh Se ta Sin Sah SU AS Ses 24 
pe PROCEDURE REMEMBERTHISC(LCW)3 BOOLEAN LCW3 FORWARDS 00900600 2 
@ PROCEDURE MCPMSG(LCWsA)s BOOLEAN LCWS ARRAY ALOIS FORWARDS 009U0700 . 1 @ 
p PROCEDURE ‘ ARC: GWes BOOLEAN Ws ARRAY ALOJ]3 FORWARD OO9OOROO 2 
Ps PROCEDURE SETUPFILES(LCW,A)3 BOOLEAN LCWS ARRAY ACO]s FURWARD; 00900900 " 
@ Fr: PROCEDURE DOGCATCHER(LCW2A)} BOOLEAN LCW3 ARRAY ACO]$ FORWARDS 00900910 9 @ 
, REN AASAASARENREATAA NANA ER RTA dE CE REE EERE EE EEC ATG 1c dee See ea eee be 
REAL PROCEDURE GETPSWOCWORKs STACK» NAX*SEADRS 3 00901005 2 
@ a RANMA RASA ESAS SHEED E ENE HERE EEE HAND RES EEE ENA Hee eeeneH Ee eeHeEHOOIOL00E 1 @ 
: VAL MAXsEADRS3 REAL STACKsMAXs+E ADRS, WORK; se Ear Be er 
, BEGIN LABEL DUMMY; 00901008 is 
e REAL STREAM PROCEDURE GTPSWD(WURK»STACKsMAXsEADRS)3 VALUE MAX»EADRS3 00901009 31@ 
6 ern e RSE See ESRESESSSESSSSSSIS TET ELITEL ESTEE TET ESTE TET TST TT ESTO EE ET TTT: O10 ns es 36 
COMMENT SPECIAL SCANNER FOR OBTAINING PASSWORD ANDZOR CHARGE 00901015 . 3 
@ fs WHICH MAY START WITH a DIGIT AND CONTAIN SPECIAL CHARACTERSS _ 00901020 1 @ 
BEGIN LOCA D NeHeNS LABEL LOOP,EXIT; ‘ OOvO1025 39 
DIS=EADRSS OStaLIT LEFTARROWS % END OF RECORD MARK 00901030 40 
@ SItsWORK$ DIt=STACK3 DNtsDIs 00901035 «|@ 
63(IF SCs" " THEN SyTs=SI41 ELSE JUMP _UUT)3 00901040 ad ag 
IF TOGGLE THEN GO TO EXITS % BLANK RECORD 00901045 ha 
@ | IF SCE"H" THEN % CHECK FOR “HELLO” 00901050 4@ 
“BEGIN pe ‘ 00901055) _ 45 
a6 DIS=L0C Hs DSt=5LITVHELLO"S D]tsO=5; 00901060 46 
@ IF 5SC=0C THEN ELSE SI%sSI=53 00901065 i @] 
ENDS ee meee Qo9e1o70) 7 sn i. 
9 MAXCDItS0ON3 DSteaLrT"o "3; olisple7; 00901075 49 
@: LOOP: | 00901080 | @ 
Ir Sc=" " THEN B IN SI*sSt*i3 GO TO LooP; END >: 00901085 a 5 
p IF SC="," THEN BEGIN SI%=SI+1s GO TU LOOP$ END} 00901090 5 
ry! IF SCSLEFTARROW THEN % CHECK FOR END OF RECORD 00901095 | 3 @ 
p a BEGIN 00901100 4 
F SViaSIs Srte_ac Sve STtsS[+5). 00901405 55 
8 OViSDI$ DIt=L OC EADRSS OleeD1 +53 00901110 | @ 


IF 35C#DC THEN JUMP OUT TO EXITS ; 00901315 ; 5 
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r e 
SI1t:=SV3 DIs=Ovs 00901120 
e END3 00901125 @ 
OSt=CHRs TALLY:=13 a “OOF OT 30! og os 
' 6CIF SC" " THEN JUMP OUTS LF SC8"»" THEN JUMP OUTS 00901135 
@ IF SC#LEFTARROW THEN 00901140 
3 BEGIN Si aes 9 ted iat Cele coh Oe 
4 SVi=S]3 SI%=_LOC SVs SLseSI+d; 00901150 
@ | DvtsDIs DIss_OC EADRSs DIL tslI+53 00901160 
6 F_3S8C=D HENS OO%VII7ZO = a 
y SI22SV3 D1tsovs IF TOGGLE THEN JUMP GUTS 00901180 
@: . ENO3 00901190 
: aes SES CHR STALL YU Ae Lp oa Se i te a ee OVO LAO Or oe She en 
fo HtsTALLYs SVE=S]s STPSLUC Hs SLPEDTH+74 LLS=OWF AStScHRs & SIZE 00901210 
r DIsSD1+75 DONt=DIs ST&=Sv;5 00%¥0122¢6 
_ (fe TALLY#=N$ TALLYS=TALLY4]ys NGSIALLY)§ % EXD "MAK" LOGP _ 0oyyi230 
" ExIT: 00901240 
@™ TALLYS2NS GTPSWDSSTALLYS 00901250 
15 END STREAM PROCEDURE GIPSWD3 ag Bot ot ten OO Oech at oath i et ke 
: GETPSWO S=GTPSWDCWORKs STACK» MAX®EADRS D3 00¥01270 
eo” | END PROCEOURE GETPSWD; 00901280 
18 B® ek ek see ke ae ek i ie OO 1a he oe te ee RO I ek ke ee % 10s ELC OR 01 00 ON 6 leeeneener en 
ia PROCEDURE HITHERE CLCws A)ys BOOLEAN LCW3 ARRAY alo); 01000100 
6. Fre TRI IOI EI II ITO OI IOI OI OO IO ot a 01000200 
: B N a ce ee Pee altos SOO 0.900 clon hen See eater eter 
p2 STREAM PROCEDURE ANSCW)> 01000900 
OF BEGIN DI t= 3 01001000 
= t= 24 LIT (ODEs PLEASE ="; Pomel ¢ [sv tk 0 eae eee 
END ANSS 01001200 


STREAM PROCEDURE LNOCWs Te UCL ide VALUE Toi 01001300 


ry IN # OO 
LABEL AFT#EVE3 01001500 
DI t= WwW; 0101600 
po SJ]_ t= 4 Ti $3 Sil+/3 Sag ereenntanes = etesere eeomamnaene #0 0° WY 2 91 © Repeat 
TF SC = "A" THEN OS S$e°44 LIT "GOOD MORNING, * 01001800 
ELSE 01001900 
B SI 33 £0 ; sara VAD, 
IF SC LSS "4" THEN 0419002100 
BEGIN UPS; 01002200 
i sC LSS "6" THEN Os EEE EFC 10 0 ean ne ee ae ee ee 
AFT3 OS *= 16 LIT "GOOD AFTERNOQNs "™ 019002400 
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@ ELSE 01002500 
; EVES : DS t= 44 LIT "GOOD EVENING» " 01002600 
END 041002700 

@} ELSE 01002800 

BEGIN a ee ae oe OO DOO ono 
“3 UPS3 01003000 
@ | IF SC = "9" THEN GO AFT ELSE°GO EVES 01003100 
003200, ss 

j END? 01003300 

ee $1 t= UC3 st t= Sl + 43 01003400 

t= 15 CHR} i VOT OOF S00 8 ne 

{ OS t® 18 LIT " YOU HAVE STATION "3 01003600 

@ SI t= LOC LL3 DOS $= 2 DEC} _ 01003700 

eee OS ts 4 LIT" "| 01003800 __ es 

: END OF LNOQs 01003900 

e@ STREAM PROCEDURE PSWRD CW)3 01004000 
BEGIN | 01004100 

e LOCAL Ts. eae. eS 01004200 
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DI t= Ws ‘s : 01004300 
DSt717LITMAND YOUR PASSWORD" ee : 041004400 
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% vOID , 01004500 
END PSWROS 019004600 
REAM PRO DUR HR We O1OU4S700 8 
BEGIN 019004800 
OI t= W3 | 01904900 
D 3 WEN R HAR G 0 ot OLOOSHONO ase 
END CHRG3 01905100 
ioe START#ERR*BADSEXITs SCHED» CASE Ms STARTANENS 01905200 
, Ss aii 2s a ea ae ee OVO OS 800 ee ee 
aNTEGER 13 01905400 
REAL TeuUSReF IL 01005500 
BOO AN M putes eee coe oe ey OOO SS EON anes 
CASE DOING OF 01905600 
BEGIN 01005700 
R N 4 A ) og oo O1905800. gate cet: is 
IF LOGGEDON THEN 01905900 
BEGIN 01006000 
IF SCHEDULINE THEN GOERR(MHELLE OD MedOdp OOOO 
IF FILENAME NEQ O THEN 04906110 
IF TPCOUNT NEG O UR FILENAME NEG SOURCEFILE THEN 01006120 
SF INT TN a aa a eg re ate OO PA ke ee 
BEGIN 01006140 
NOSAVES*TRUEZ GUERRC™NO SAVES 48)3 01006450 
ND é . O1i006is60 =. 
CLEARCALBASEJ,3)% & ZERU OUT 4 WORDS OF STACK 01006170 
TESGETPSWOCWORKE1 JALBASE +1 1432 WORKENDAORS D5 ’ "HELLO INPUTOQ1006200 
bene OT GTR CTE G 2 UM 2 Te OT OO G50 Gein ceil Se tinharutianes 
COMMENT PROCEQURE "BYE" DOES NOT OISCONNECT on 01006400 
ATBASE} GEQ@ 50s DOES NOT PRINT MESSAGES WHEN 01006500 
ARE Qn 100 04006600 
BEGIN ACHASE J] &=124+T3 01006700 
BYECLCWe#AL eI] )$ LOGOFFCLCW» AL a) )3 01006800 
ae ee STO IN Bik a OO ac are a eon eh oth ties 
ENDS * IF PARAMETERS TO RELLO 01907000 
ACBASE) %a 753 % FLAG AS HELLO 01907100 
BYECLCWs AL*])3 LOGOFF (LCW*ALeI D3 01007200 
IAM %s VHELLOS 01007300 
WANT 83 WAITFOR t= O32 01007400 
NDS & H G 019907500 PIO ies 
TOTOT s* ETIME s= PTIWE 3= INPUTCTR :2 O38 01007600 
IF SCHEOULINE THEN 01007700 
es BEGIN O10N76O0C — 
ACBASFI]8=1203 AC hast tt FUSERCULES O4V0790C 
GO TO PSwrs GL4¥usocG 
ENDS & ITF LUCGGEGIN O1U0810G 
START? IF NOT LOGGINGUN THEN 0100820G 
BEGIN : 01008300 
STARTANEWS  ANSCWORK)} 04008400 
TWXOUTCLLs» WORK(O)» 24» NOCRLF)5 01008500 
LOGGINGON *= TRUES 010u86CO 
END3 01008700 = 
DOING t= 43 01908800 
FILESOK t= FALSE} 01008900 
WAITFOR t# VINPUTS 01009000 
ACBASEJ]$=TEMPS=53 01009100 


END OF CASE oF a seusleicatade OX ane Cah ack Wee De eae ele ae enw ene wey Ol 009200 


BEGIN & CASE 1 scores ere tere e scenes et neseseseveersessessees e0LV09300 | 


CLEARCACBASEJ23)3 % ZERO UUT 4 WORDS OF. STACK 01009310 
TESGETPSWOCWORKE1 J eAC BASE +1 J e3esNORKENDAURS)3 LOGGINGON% sTRUES 01009400 
IF T =. 0 THEN GO TO ERR} & NO INPU 01009500 
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IF YOUFINDAVERB CACBASE+1J*VERBTABLECCJ]*\UMOF VERBS) THEN 01009600 
BEGIN IF ACBASE4+1).CF NEW VHELLG TREN 01009700 @ 
ACRA “os RYE JH 010 g800 ert 
BEGIN 01009900 
IAM t= VBYES USERCODE te(*cone 3] 01010000 STUPID 
TO = ME $= PTIM PS WINPUTCTR t= 03 ¢ 0 fens aod 
DOING := ACBASEI #= O85 01010200 
GO EXIT 01410300 
ND y ol - () 6 0) ew haben teraes racks 
ELSE 01010500 é 
LITOUTC"FUNNY,o%91)3. % IF NOT HELLO 01010600 . 
RR M PTR : H , we EO OFOO UU 
GO TO STARTANENW; 01010800 
ENDS % IF A VERB ( UR NU INPUT ) 01010900 
IF T LSS 2 THEN % NO PASSWORD GIVEN YET 01011100 
BEGIN PSWRDCWORK)3 01011200 
og Oo ORO Dp Pe YD Be i ee UA 00 a ee 
PSWD?: IF ACBASE] LSS 126 THEN % NC PASSWORD GIVEN YET 01011400 
BLACKOUTS 01011500 
SN ae O00 en 
It= (CACBASE+1],(6321) + ACBaSe*1).c27%21)) MOD 29) + 13 01911700 
NEXTBLOCK? 01011710 
LLDISKREAD t= USRBAS DIV USROWSYZEJ)+Cyt=] MOD USROWS 3 OTOL PROC. cc se ee, 
DOING 3® 23 01011900 
WANT = VDISKREAD; 01012000 
orem 5 ems, ey eae ne 0 G01 (91 0 ee 


END CASE 13 a ROO ROMO OEM H RHR HEHE HO EPO eeeHaeseneernntevevensOLOLZ2200 
BEGIN % CASE 2 TOPO oP eH eH oe e Hada HesetHentesoensesenesnsensegULU12e2300 
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FOR $2.0 P N y OO 010 00 
MATCHCWORK(TIJ* AL BASE+1].(6242) ) 04012500 
BEGIN 01012600 
R $= WORK[ 33235]5 % RELA - K ADDRESS 01912700 
USERLOCtsuUSRBASECUSR DIV USROWSIZE]*#C1t2U5R MOD USROWSIZE)s 01012710 
LLDISKREAD t= USERLOC3 01012720 
WA $s VOISKREADS 01012800 Sa esi tee eae at 
DOING %s 33 01912900 
GO EXIT 01013000 
END; 04913400 ae 
IF CI#eWORKC12-018%15]) GTR O THEN GO TO NEATBLOCKS *LINK 01913110 
WORKEL] ta Mawes ¥ TF NOT MATCHED 01013200 
DOING ¢= 33 01043300 eee 
END CASE 23 a CeP orem eee oceHonar eter eserenesenesssoenes ees e OL UIS400 
BEGIN % CASE 3 Pema rere He Meee Hern easetanenveseeneereenenng nee ep OlLU13500 
RESTRICTEDLANGUAGES%=WORKC AI 01943600 
MOVE (2sWORDS »WORKEGTsRESTRICTEDVERBS)> 01043700 
IF SCHEOULINE THEN 01913800 
BEGIN 01043810 
LOGONCLCWsAL*I)5 GO TO SCHEDS 019143820 
END; 01013830 
USERCODE! =wORKL ; 031913900 a 
ACBASE+6]%#wORK[233 & SAVE PASSWORD nog ae 01014000 
- CHARGE LSWORK( 333 . : 01914100 
TIMELIMITS 3 sWORKE 7: QO1044410 
OPTIONBITS3=WOF Koitjs % USERS "SPECIAL" OPTIONS 01914200 
MOVE C2 sWORDS»WORKL4)sALBASEt4))3 % NAME FROM USERS FILE 019014210 
IF ACBAS R 5 THEN GO TO CASFus & HAVE PASSWORD 01014300 
% VOID ee ae he oars oe 01014400 
DOING Fm. 4). BETA AMS REEL tet halt en. 01014500 
WAITFOR 3% VINPU? a be 0 4600 
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oon OO HW FF WH = 


CASEQt 


CHARG: 


BAD: 


LOGGON: 


ENO CASE 33 CeO e ee me Here en eneees hacen enessesesnenneena ved LUL4700 
BEGIN % CASE 4 SOO ee teh Gee Ee he ae UES Yea vnae Ne eeret sme sie tO 
ALBAS S 6 THEN % WU PASSWORD GIVEN : 00 
ACBASE }# a1 254+GETPSWOCWORKL A] »ALBASE+2 1 pe sNQGRKENDADRS)3 01015000 
EOS ENGUN. ts FALSE 01915100 
RCODEs At £6k 
MATCHCALBASE +6)» ACBASE+2 1+ C6:42)) % PASSWORD 01915300 
BEGIN 01915400 
M H } uo MICH is Es 
IF RESTART AND NOT MTCH THEN % SCRATCH “OLD” WRK FILES 04015600 
BEGIN 01015605 
USR&ISACSBASE)S. TeFLbe13f33994197)3 FIL ISMAKEENC™IS" > LL )s 0401561 
REMOVEFILECTsFIL»USR)S 01015615 
ee [6836] eUSR)3 01915620 
mF g "Pp H 36 IRI3 019 
REMOVEPILECT+FILE"T™C 1242161 USRI} 01915630 
END; 01015635 


IF. NOT RESTART OR RESTART AND NOT MICH THEN.% CHECK TIME 040 


END CASES 2% 
BEGIN % CASE 5 


Poh eH eee ete Heenan reset neeseegnenereseseneznese er lL VI8200 
Cee e mma t reer eneesesesatoeesnesenancesesesesens sg J1V18300 


eget tt he 


12 E> Lo 00 eater ete eee Oat Rae eee ee 


IF NOT TIMECHKCLCWAA) THEN 01915800 
BEGIN wORK(CO]8="$0 "3 wORKLCO] +CI2%0]$=LEF TARROW:? 01015900 
TWXOUTCLE*WORK(OJ)s39°71)5 % DISCONNECT THE LIN 01916000 
TAMSSWANTS=WAITFOR S803 GO TO EXxITs 01016100 
ENO; 01916200 

__IF cH HAR 016 ea 
BEGIN =r ACBASE] = 12/ THEN & PaAREE ALREADY INPUT 01916400 
BEGIN CHARGE t= ALBASE+3),(684z2)3 01016500 
ENO % IF ACBASEJ=127 01016700 
ELSE % a FOR IT 01916800 
; : enge . ote 
CHRGCRORKD} TWXOUTCLEs WORKEO) s4 8*NUCRLF D3 01017000 
WAITFURSSVINPUTS 010174300 

DOING s= 53 01037200 
GO EXIT; | 01917300 
- ENDS & ASKING FOR CHARGE 01017400 
NO % HAR = 0 . 04017 

ELSE GO TC LOGGONS 01017600 
ENDS % IF MATCHED 01017700 

USERCODE t= 3 04017800 
LITOUTC"BABCODE",1)3 01017900 
MSGPTR t* 2423 01918000 
GO TO STARTANEWS 01918100 


T2=GETPSWOCWORK( 1) » CHARGE? 12 WORKENDADRS)3 CHARGE, (£185]2=03 01918400 
IF T = O THEN GO T@ CHARGs 4 MUST INPUT SOMETHING 01918500 
LOGONCLOWs ACH] 23 01918600 
LOTOT $= ETIME ts PTIME $= INPUT CTR tz 03 01918700 
WAITFOR t= IAM t= VLISTNEWS3 01918800 
FINDCLL&IAMEL 3384137) 50s"NEWS "S"CANDE “s"SITE "5 01018900 
DOING 37 63 01019000 
ENO CASES} x Pewee merase Marat emereeetorereoeneeseeeneere see eV LVIILO0 
BEGIN -% CASE. 6 Cee reer eee rarer eneneretersereeesseereseons ens OLOL9Z00 
F_ EVENTS EQ O THEN GO TO WINDUP; % NO FILE 01919300 
LLDISKREAD t= EVENTS£ 4), 01019400 
WANT t@ VDISKREAD3 01949500 
DOING 3 73 01019600 | 


END. CASEG} & 
BEGIN % GASE 7 
TWXOUTCLE sWORKCO)s Fas CRLF D3. 


ced m eee recede eneereeebetereeenerowsenecesesess s01019700 
ORS ee ee HCHO Hea me need obareveteeeeresensnese pOL019R800 


01019900 


® 2. ) 
| WINDUP? IF CCLONG THEN CCCOMCLL»® USERCODEs1)3 & SET LONG CARRIAGE 01919910 
& IF QUICKLOG THEN GU TU SCHED# & DONT PRINT GREETINGS 01019920 @ 
WORKTQ = DA ; 00 0 P-20 0) 00 anne 
1 TIMEOFDAY CWORKC1}¢T#=TIMECONY(LOGONTIME* TRUE) )3 01020100 
@» TWXOUT CLL s HORKEO Is 189195 01020200 
3 WORKE OC ; y 
5 TWXOUTCLL*WORKLOJ 9529 2)3 01920400 
@| SCHED: IF NOT RESTART THEN LINECLEARCLCWsale) )3 01020500 
6 WRITEASTERISKS®7TRUES NOSTOPS=FALSE | 01020600 
7 FILENAME %& O3 04920700 
@: DOING 3% WANT $2 Q3 : 01920800 
. ___SOURCEFILE $s OBJECTFILE #2 03 2 BOGOD 
to IAM 3:3 IF RESTART THEN © ELSE VSETUPFILES» 01921000 
er GO EXIT 01921100 
12 END CASE 73 % seeee eee eneceere ro sesess ee eV 121200 eee OTA a es Eee 
t END ALL CASES3 01921300 
@' EXIT: O02 1800 
fs END OF HITHERE3S O1921500 
16 SE We ae se ee ae te ee a He de IF Ri ti i Woe % 02000000 
eo.” PROCEDURE BREAKCLCWeA)s BOOLEAN LCW3 ARRAY ALC]; 020001400 
Ng HH ke ee We kk kk a tk ek ek aD Q2000200 =e 
° BEGIN 02000300 
ee” LABEL 13 02000350 
' WR ASTERISK RUE: ; eee OP UC0 GOO 
P IF RCL LHCERSEy” = O TREN LINECLEAR(LGWeAL#)) ELSE 02000500 
eo IAM t= 03 02000600 
ee. aes pI BR me ee eh PO OOO TO Cen ish sete Sore tone 
= z REWER EE REN ka ay 03000000 
s@ 7 PROCEDURE WRUCLCWsA)3 BOOLEAN LCWS ARRAY ALOJS . 03000100 
§ 27 ES AASEALAALALA ELLA EAT TAAL EAA EAL EAL EEE EES | 03000200 | a 
8 8 BEGIN ; 03000300 
2 29 LABEL T3 -03000350 
Spe WR ASTEKISK t= TRUES 03000400 
Bt INITIATEDWHILEBUSY 23 TRUES 03000500 
@ a2 BREAKORWRUSSTRUES% WANTS SWATTFORISVLINECLEAR3 03000600 
B3 IF REALCALLMCPMSG)*0 THEN IAM%=O ELSE 03900700 Pe, eae ee 
P MATCHCRUN2s"CANDE 2) LAM23Q ELSE 03000800 
@* WANTS=WAITFORSSVMCPMSG3 03000810 
B8 oN WRU 000 Sereno a 
B7 BX teed ti kite tk khaki tee ZO G000000 
@ PROCEDURE LINECLEARCLCWsA)3 BOOLEAN LCWF ARRAY ALQT3 04000100 
89 Rew e ee a iio io a tk eID Nine Ue ie aie kth tees 504000200 
BEGIN 04000300 
er LABEL EXITS 04000400 
RUNNING N MATCHCRUN2s "CANOE " i X1T3 04000 Q i 
i BUSYLINE $3 FALSE? 04000500 
On PUNTY LATEOWHELE@USY te FALSE: i 04000600 
: this » ma Fs ; : O4000700 
: RESTARTNEEDED t= Falses 049000800 
eo. ALLMCPMSG t= FALSE 04000900 
8 D ON $= FALSE, QO4O0O01000 
RESTART. ts FALSES ; 04001400 
i SEMODE | ta FALSE: | joe 04001200 
2. U3 : 2 Od ) OO) Gewtene ad eee 
' DTAENKEL ED t= FALSES 04001400 
i BREAKORWRU t= FALSE 04001500 
p NQUIR ws FA SONTINUEBLTS=FALSES _ OH001600 oo 
- SCWPREV t= PREVACH t# LLWORDSS BASE s# SBASE3 . 04001700 
@ WANT ta WALTFOR ta WAITINGSCW §™ LLINFO t= 03 | 04001800 


REAL CTHINGST ONO) GTR: 0 Do <TSOMETHINGTUNDOCL CWe Af ss 04001900 
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CLEARCALSBASE]+30)3 & FOR REPLACIT 04002000 


IF EQUATED THEN ENTERESPC@LL»"02AC%K])3 %& GIVE BACK ESP DISK 04002010 @ 
NUATEN t= , I 
MSGPTR te 183 : 04002100 : 
EXIT! IAMIa03 ; 04002200 1@ 
END PROCEDUR CLEAR é 04002300 _ 3 
JOU IOI UII OUI IIIS III IIIGIUI IOC OIG iit i Ei HH RO5 000000 : 
PROCEDURE INITIALIZECTRANDBASES 05000100 |@ 
Fi eI ITO IO II IOI IO OIG ety tak 05000 019 ieee eer ee 6 
BEGIN 05000300 ? 
STREAM PROCEDURE USERSDATE(L»DAT)3 05000310 |@ 
z 3 N be casicraesd raphe Inigtine taeiaceshe tec, . 
DItslLs OSte23LITMUSERS/CANDE FILE DATED "3 05000320 10 
SI:sDATS DSS=BCHRS DSt=alLl Te"; 05000325 @ 
ND USERSDATES 05900330 bi 
REAL USERFILEHEADERS : a 05000350 bi 
CLEARCCTRANDBASELO]+15)5. % REMOVE 05000400 @ 
—— RK % ANY GAR C O5000500 ei 
MSGFILELOC := EVENTS(2],(20228); 05000600 6 
TANKFILE t= ABSCEVENTS(3))3 05000700 |@ 
USERFILEKEADER t= EVENTS(2).0584543 a OG 8 a nr a oe ON eee rey be 
SYSTEMS =(EVENTS(21602!2])x(10093 05000860 ‘i 
ROWINUSE 33 153 05000900 29 @ 
NOF 5 & SE 3 SS Dah Ma Fea eae a 
USERSDATECL sEVENTSC4I)$ TwXOUTCGsLL0)53204)8 & ACCESS DATE05001010 Pa 
DISKWAIT(C1>WORKL *J* 30>USERFILEHEALER) 3 05001020 21 @ 
_ ROWSI7ZE 8=( WOR Oly RK L4eé xWOR 4 Sead 6 1°11 Wl Kc Reece ete en a ai 
MOVE C20sWORDS*WORKL10J*USRBASEL*])3 % DISK ROW ADDRESSES 05061040 
LOCKCUSRBASEC#])3 & MAKE. READ ONLY ARRAY 05001050 
Ni RO THEN 2 OLD ANKS x 050 DOS se at Ale es 
BEGIN 05001200 
DISKWAITC1sWORK(* Js 30+ TANKFILE)DS 05001300 
JROS Ol]>»CIk SE LO})3 OO1400 
TANKSIZE t= WORK{al3 05001500 


fa] 
ROWINUSE t= WORKC6),CF3 05001600 
ROWCOUNT d= WORKC6I],F FI 05001700 = 
NOTANKS t& FALSE 05001750 
END3 05001800 
END INITIALIZE ANDB AYES OG¢ Bee eats ee a 
JOENSUU IIIS IOSIOIOIIOIORIGOOIOIUCIDE Raita ih aot i iiice tite t #2 05002000 Z a 
PROCEDURE DISKGHUNK; | 05002100 4@ 
LREARAREARARAEER EE A? CRERELELREREREASLCLCEEE LEEPER ULC TLTOCCC TTT *#*%*$0500 00 39 
BEGIN 05002300 
REAL XTRADSK3 05002400 
BOOLEAN TANKNQTPRE SENT? 050 00 
IF NOFILES THEN & SET UP THE FILE ADORESSES, 05002700 
BEGIN - 05002800 
T R “he T$£3) 03 002900 
INITIALIZECTRANDBASES 05003000 
END ELSE TANKNOTPKESENT t= TRUES 05003100 
RANDBA RO Stj NFO N Tol HEN 05003200 
BEGIN 4% MUST REALLY BE A NEW CHUNK, 05003300 
ROWINUSE. [4484] 3s ROWINUSE +13 — 05003400 
I CTRANDBASELROWINUSE] NEG 0 THEN 05003500 
BEGIN 05003600 
XTRADSK &8® CTRANDBASELROWINUSE)3 05003700 
ROWCOUNT %= ROWCOUNT =13 05003600 > 
END; . a ae 05003900 
CTRANDBASECROWINUSEJ 9% -EVENTSE4)3 05904000 
ROWCOUNY... 32 ROWCOUNT #13 05904100 
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@ @ 
f IF TANKNOTPRESENT THEN DISKWAITC1+WNORKL*#),30sTANKFILE)S 05004200 
@ WORK(6) t2 aonNuSe & ROWCOUNT [18333215]3 05004300 @ 
MQ N RANDBASE LO)» WURK 05004400 eras 
1 TANKSIZE tSWORKTO)3 DISKWATT CO»mORKU #1» 30 TANKF ILED? 05004500 
@ END REMEMBERING NEW CHUNKS 05004600 
3 DOGSAROUND:s00GSAROUNO OR ROWCOUNT GTR 3 015004700 
4 IF XTRADSK GTR O THEN % GIVE IT BACKe 05004800 
@|: FORGE TUSERDISKC(XTRADSKsTANKSIZEI3& 05004900 
6 IAM t= 03 | 05005000 
7 END OF NEW OISK CHUNKS 05005200 
& 8 BOO ee EE EERE EATER EEN RE ee eee ek eee eT 06000000 
9 PROCEDURE DISCONNECT(LCWsA)3 BOOLEAN LCWS ARRAY aAlO}3 06000100 mo 
10 FR IIIT II III III III III ICIS IOIIOIOISI IOI ICID Cink 14606000200 
er BEGIN 06000300 
12 BOULEAN STREAM PROCEDURE SPECIALCNeW*T)S VALUE NoT3 0600040 
n BEGIN — 06000500 
@' «SY te Loc Ts SI ts SI+t; o4 te WwW 06000600 
15 —. $ N TALLY oQO700.. 
6 SPECIAL !® TALLYS 06000800 
eo” END SPECIAL; 06000900 
8 is a ee U No 3 - iN OO a ee 
9 BEGIN 06001100 
eo” WHILE RCTHINGSTODO) GTR O 09 GETSOMETHINGTOOGCLCWsAL*} 94 06001200 
' D ON N ACDOLN 4] O6004300 
pa BREAKBRWRU 33 TRUES 06001400 
er END3 06001500 
P ___L DQ@GLICENSE THEN % TANK FILE CLEAN UP IN PROGRESS 06001510 ee 
; BEGIN 06001520 
Bia DOGHOUSELLLJ1=03 06001530 
b aaa 
IAM $= VDISCONNECT3 06001550 
@ ENDS | 06001560 
ig REASON = HER THEN re eto Sree ere © W025 Ey ann Uc Or a nD 
IF 'SPECTALUS»NORKE1]s"BYE>=o") THEN 06001700 
@ DEVICE t& REALCNOT FALSED3 06001800 
REASON = MCPMS rit. N O46 0 VOD et 
BEGIN 06002000 
@ SREG?=BASE+LIBMSGCTRS 06002100 
° MCPM N * , 04600 O00 Mi Pah te the ee 
IAM 3 yVOISCONNECTS 06002300 
® END MCPMSG3 06002400 
WA DRI SRE A NOTCFAL s Or : 0400 00 arti 
AND REALCALLMCPMSG)= 0 ) 06002550 
@ OR SCHEDULINE 06002600 
4 N 040 6S 0 
BEGIN pie! _ ae 06002700 
& LINECLEARCLCWeALC¥) 93 UISCONNECTING t= FALSES 06002800: 
SE RCOD NEQ. 0 Pic. N : 06002900 
BEGIN 06002910 
é IF NOT SCHEDULINE THEN 06002920 
Y F3 N O4 0 See ites. SOS 
; ALBASE) t= 1503. BYECLCWsAlw])3 % SCRATCH WORK FILES 06002940 
@; END BYEING OFF 3 : ra hae ao 06002950 
P At w oe Pa ae : : : O4A002960 
END LOGGING ae 06002970 
@ | LOWS =F ALSE3 CLEARCALTBASE ]» SBASE*@TUASE@1); 06003000 
F AM ts 3 D ONNECTEU : : 060 00 gece lad na 
BH) END. IF. DONE WITH THIS LINED. ee 06003200 
Or | END DISCONNECTS ©: ee ee ee ee . 06003300 
BA oe Ede 0 sodcnae he LEASED ARLES LO MAT EE HEE DH H OH OE EEL EREDD ES Keune ane neenenes c8%07000000: 
@ 
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@ 
PRUCEDURE INPUTDATA C(LCW?A)S 07000100 
@ Fa RI EI IOI II III IG II CIUIIDISIGI I IOI III IOI I IOI i eoitoini it 07000200 
BOO AN Awe ARRA ACO. i. ere 
1 BEGIN 07000400 
@ |: LABEL T3 07000450 
3 ANUSEDATA ts_N AROUND 3 O7000800 
4 NODATAREQUESTED!= TRU 3 07000600 
@|: DATAOFFSETT t= EVENTS [(1)3 07000700 
‘ T 3 t= EVENT ; 97000800 = 
f DATADISKLOC t= EVENTS £3) & ROWINUSE [(36t4484)3 07000900 
@: NODATAts(DATAWORDS LEG O OR DATAOFFSETT GEQ 29)3 07001000 
§ LAM te WANT 3203 eee, ose ss a O FOOT PO 65. ts 
no END KLUDGE INFUTDATA3 07001400 
& un TORII IOI I III IOI II IG IIIS IIS IS i iio ioi iti #207001500 
2 PROCEDURE BUILDADATAEVENTS QO7001600 
: LONE EARNER EEE H EKER EA REWER HERE EE TEAR W ER ER HEN H WOH AEA RAHA REE HEEROTOOLZO( 
On. BEGIN 07001800 
a DEFINE P =[10:8)# 001900, ———S 
5 LABEL EXIT; 07002000 
, By REAL COUNTS 07002010 
BOULEAN STREAM PROCEDURE FLAGBIT(W)S 21 OT O02 100s a. aR oie ee 
: BEGIN 07002200 
@» STtsW3 IF SB THEN TALLYS213 FLAGBITISTALLYS 07002300 
‘ NOD A O7002K000.. 
: STREAM PROCEDURE INCOMPLETEMSG(AURK)S 07002410 
@» BEGIN DIS=WORKS DSt=27LIT"Y AUR REQUEST IS INCOMPLETE *®"$ END; 07002420 
p ~~ F_FLAGAITCTTYINPUT[DATADFFSETT]) THEn 02S OO 
il BEGIN LL#=0% REASUNS=133 GO EXIT END3 07002600 
@ IF DOGSAROUND THEN % BAD NEWS. 07002700 
ua : ’ _o7002800 
: EVENTREASUN $= REASON $= YDUGCATCHERS 07002900 
OF EVENTLL P= LL ts DUGSLOUSES 07003000 
Ro . x . eye 
ial END DOGSARCUNDS 07063200 
@» BEGIN 07003300 
p LL t= (ERRSW 3 TTYINPUTLOATAOFFSETTI) eINPUTLL3 07003400 
é EVENTSL3]%= LATAVISKLGC; 07003500 
@ EVENTS(2):= REASONS CHORKEO] #SE RASH s INPUTCHARD #7464915 13 07 003600 
: VENTSEAYI3S DATAUFFSETT&$= DATACFFSETT + 43 07003700 _—s=|T ee 
MOVE CAEASBNG WORDS» TTYINPUTCDATAGFFSETT I» wORKL1])3 07003600 
@ WORKADRS %5 ADDRESSCWORK(1I)3 07003820 
_ COUNT t= (WORK(O]#1),C39t9]3 07003840 
WORKEND ADRS s=(WORKADRS +COUNT ,[4085J)8COUNT( 308451 3]3 07003850 
] NODATAS=S(DATAOFFSETT t= DATAGFFSEIT + REASON) GEQ 293 07003900 
IF COATAWURDS?t= DATAWORDS ° REASON - 4) LSS ! THEN 07004000 _ 
NODATA t® TRUE: | 07004300 
@ ‘ EVENTSCO]CistiSiis & 07004200 
___CERRSW 8 CREASONS=- VINPUT@ERRSW.INPUTOMARK 3141173) 07004300 
003315)3 07004400 
@ | IF REASON = VTEACHER AND CONTINUEWIT THEN % NO DISKREAD 07004410 
BEGIN INCOMPLETEMSGCWURK)$ TWXULUTCLEL®WORKLOJs2701)3 07004420 > 
LL¥sc% REASON :* 134 END# % IF WAITING 07004430 
@ IF REASONSVTEACHER THEN 07004440 
IF SEQMODE AND NOT DISCONNECTING THEN REASONS ®VINPUTS 07004450 
; IF LL GTR MAXLINES THEN BEGIN LL?803 REASON? =133 ENDS 07004800 
@: END NO DOGS AROUND; 07004900 
EXIT# END OF BUILDING A DATA EVENTS 07005000, 
F ie th tl Th Lee LEC... to tT ee To? ho ee 09000000 
@ Fs PROCEDURE RESTARTITCLOWPA)s BOGLEAN ECWS ARRAY ALOT} 090001300 
G ad t Sebisti. A AMek Redes Aod Akad idabd ted A itt Aa tk dtdeh Added hh doh dekh tk tk Ck ‘09000200 
@ 
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COMNENT CHECK. foe, RESTRICTIONS CNOT CHECKED iN HI THERE ON RESTART)3 09002510 


RC BC aera: FEV BCRONG: A 0900 


a: 


) e 
BEGIN 09000300 
@ REAL T3 09000400 @ 
AY BAD» FINDCHK AKESURE s CASE Bs CASEOSEXITG weet ei es ee et OO S00 — as crak. 
1 BOOLEAN STREAM PROCEDURE FINDFLAGCSEGMENT)3 09000502 
@» BEGIN LOCAL SV} LABEL EXITS SIPsSEGMENTS 09000504 
3 f) 7 ONSOOOSGA ees 
4 BEGIN TALEYIGLs “FINDFLAGI=TALLY3 JUMP OUT To EX1Ts ENDS 09000508 
@|: og SIteSVi slissiva)) 09000510 
8 ND 090005 
7 STREAM PROCEDURE PLACUESE (GEC HICK -F ICANNSUSERCODETOISRIDDAESoaI 09000514 
@: VALUE pTLNANSUSEREOVESDISKADORESS? 09000516 
3 : a SR Sih ee OOOO Ug ec 
fo DIs=WORK3 DSt=14LIT"FLAG BITIFILE "3 09000520 
er STs20C FILNAMS 2(SIS=SI+1; DSt=7CHR; DSHELII"/")3 NISSDIA43 09000522 
N2 OS$8217 "A D K ADDRESS "3 DStsSHpFEc; 09000 See eee ae 
k DS?*s16L IT" FILE DISCARDED."3 09060526 
@' END STREAM PROCEDURE -FLAGMESSAGE} 09000528 
ns REAM PROCEDUR OK Ch NGOOOSNO 
fs BEGIN 09000700 
@"” DI ts W3 09000800 
8 t= WWORKE Kets ~_ O9000900 2 2 one. Sete Ee eat Sh 
9 END OK3 09001000 
STREAM PROCEDURE SPECCWRKsSEQsFIX)3 VALUE SEQsFIX; o9001010 
DISSWRKZ DSt=20 LIT "INPUT RESTORED TRRU "5 09001030 
FIXCDSt=7 LIT "FIx AT eer 09001040 
= ts tz F 
P DI8eFIXs DSs=7 FILLS veers er S] tak 1X3 09001060 
@ | ScIF Scan « THEN STtssi4l ELSE pStschR)3 09001070 
bb tsi6é H9QVQVLORO a alilesacee Sells Seto fe A Ea oh 
pe eno: STREAM; 09001090 
@ & CASE DOING OF 09001100 
‘ B N Pee Oe ee es 
BEGIN % CASE 0 09001300 
@ IF BOCLEANCEVENTS£C1)-02!4]) THEN 09001310 
BEGIN 09001320 
SCHEDULINE %= TRUE3 09001322 
@ CHARGESSEVENISL3]3 09001323 
USERCOCE $= EVENTS(1),.(6342]3 09001324 
SCHEONAME 3= EVENTSC2],0C684215 % NAME OF SCHEDULE FILE 09001325 
@ DEVICE ts TELETYPE; 09001326 
: END 09001328 
ELSE DEVICE t= EVENTSLe2Js 09001330 
@ IF EVENTSC1],Cii2)]=1 THEN ZSCHEDULE LOG GN (NOT RESTART) 09001340 
2 AMS=VHELLU 09001350 
ELSE 09001360 
@ IF NOTANKS THEN | . * 09001400 
IAM $= VHELLO 09001500 ee 
é ELSE 09001600 
@ BEGIN 09001700 
FILESOK t= FALSE$ BASE t= SBASE3 09001800, 
ALBASE 33 PEVENTSI 1. (6%42]3 % SAVE USERCODE 09001900 
@: RESTART. t= TRUES 09002000 
TEMP t= DOING t= 13 09002100 _ 
WANT 38 VHELLOS 09002200 
@ | ENDS 09002300 
END CASE 03 _ 9002400 3 
° BEGIN ._% CASE 1 | GOT RIM LOGGED IN 09002500 
@ 
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n x. kh eS 3 ~. 3 


2 a ‘ 5 5 


CEs 


RONOT FALSE) OR TIMELIMITS.C24224) EQL O THEN ELSE 09002512 
TIMERESTRICTBIT %= REALCTRUED3 09002513 a 
Ry AK s A F} g 600 a SS a ee 
IF USERCODE NEQ ACBASE) THEN 09002700 . le 
BEGIN 09002800 . : 
AM = - . Oot 200 ica te peat : 3 
DOING t= TEMP ts Q3 09003000 ‘le 
GO EXIT 09003100 5 
ND 3 O90 0 390 ty ht oe 
IF SCHEOULINE THEN 09003210 : 
STEMPORARY UNTIL WE KNGW WHAT TO DO 09003220 -|@ 
: OE RR CP ele OeP 1 40 as le Ee re OOO SO 30H ee . 
ACTBASE+10) 8= TENB3 09003300 e 
T ts MAKEFNC*1P"sLL 3 09003400 
ND : 0 FRCODE» RCO i ee Nae ee s 
DOING t= 23 as 09003600 ‘le 
WATTFOR ts TAM} 09003700 lz 
Nf A 09003800 Mi 
BEGIN % CASE 2 09003900 ar 
IF EVENTS£1) NEQ 7 THEN 09004000 Ye 
B N 09004100 0 bby 
BAD: 09004200 Bi 
FILENAME t= pees t= WAITFOR te 03 09004300 9 @ 
AM 32 VS D900 G80 Oe Se tS ee a : Z 
GO EXIT 09004500 ‘le 
END; 09004600 e 
t= (WRKTBL ADR? = NTSfajjeis .  * ACUR OF FIRST REC) ogoo4709 a 
ACBASE?1) t= 03 09004800 : 
FINDCHKPT? 09004900 24 @ 
DISKREAD $s ACRASE]) NCCALCBASE 41393 09005000 Rereeeet I? 
TEMP &2 23 09005100 ar 
DOING t= 35 09005200 2 
WANT %= VDIJSKREAD} 09005300 a i 
END CASE 23 09005400 | 3 
BEGIN % CASE 3 09005500 ao| @ 
IF FINOFLAGC WORK) THEN 09005510  _—_> 
BEGIN 09005515 
FLAGME SSAGEC WORK sMAKEFNC "LP "si ) sUSERCODE, (AL BASE )*ALBASE*L)))3 09005520 3 @ 
TWXOUTCO*KORK(0)s7091)3 09005525 Se eg en id 
GO TO BAD3 09005530 2 
ENDS 09005535 4@ 
ACBASE+2] 3 03 09005600 33 
IF WORK(O) = TENS THEN 09005700 a0 
BEGIN 09005800 «|@ 
GOQDOBY $5 BOOLEANCWORKI7J.< €12%11)3 09005810 


FILENAME t2 WORK(12)3 
INCREMENT f 58 WORKI14]5 
SEQLAST t= WORK(15]3. 
SEQIN t= WORK(16]3 
LASTRECORD t= WORK(C17) + 4% & RECORD COUNT 
ABLEINFO t= WOR 18]; 
FILETYPE t= WORK(L20]3 
SOURCEFILE = WORKC21)3 
30. MAKE SURE; 
END3 
IF WORKC10) NEQ@ TENS THEN 
IF WORK(C20) NEQ TENS THEN 
IF ACBASE+1) ate TBLSZ THEN. GO BAO : 
ELSE ae BES oe ae 


i 


09005900 | 
09006000 | 4@ 
09006100 ; 
09006200 a 
09006250 |W) 
09006300 : 
09006400 c 


09006500 so @ 
09006600 | e 
09006700 5 
09006800 «| @ 
09006900 5 
09007000 6 
09007100 4 te Se 1 @ 
0900720 : i 
@ °@ 
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oo onwt oO FW FF WH = 


a a: 


MOVE CLOs WORDS» WORKC 20] *ACTBASEI)3 09007300 
GO FINDCHKPT 09007400 
END 0900 Ol \eeeaneee een eae 
ELSE 09007600 
BEGIN 099007700 
ALBASE + 2 ‘ 09007800  —_s—i_y 
MOVEC10*WORDS*#WCRKL10]» ALIBASEI)3 09007900 
GOODOBY t= BOOLEANCWORKE2/7)-£12%1)),2 09007910 
ND aoe ee ee eS OOOO ROO Oe na ee 
ELSE 09008100 
BEGIN a 09008200 
MOVECLO*sWORDS*WORK(OJ* ALTBASE) D3 ; _._ 09008300 
ACBASE+2) t= 163 09008400 
GOODOBY t= BOOLEANCWORK(17],0i12%1))5 09008410 
FILENAME 8 WORK(22]3 09008500 oe een 
INCREMENT ¢@ WORK(24)3 09008600 
SEQLAST t= WORK(25)3 09008700 
SEQIN %# WORK([26])3 09008800 cate Sayed Pe 
LASTRECCRD t= WORK(27) + 14 & RECORD COUNT 09008850 
TABLEINFO %= WORK(28]3 09008900 
END} na a ee OOOO O00 iat sD 
LLOISKREAD t= ACBASE] + INCCACBASE+4))3 090091400 
TEMP 8 33 09009200 
DOIN t= 4 = 09009300  — 


WANT %® VDISKREADS; 09009400 
END CASE 33 09009500 
BEGIN % CASE 4 099009600 pe arte ote cel 
IF ACBASE#2] = 20 THEN 09009700 
BEGIN ; 09009800 
FILENAME t= WORKE2)3 09009900 —_ 
INCREMENT 82 WORKC4I]$ 09010000 
SEOLAST %= wORK(5]3 09010100 
SEQIN t= WORK(6)3 09040200 _ 
LASTRECORD := WORK(7)] + 13 %& RECORD COUNT. 09010250 
TABLEINFO ts WORK(8]3 09010300 
LETYPE t3 WORK(10J3 09010400 = 
SOURCEFILE %* WORK(C11)3 09010500 
END ELSE 09010600 
BEGIN 09010700, 
FILETYPE :@ WORK (0]3 09010800 
SQURCEFILE %* WORK(C1i}3 09010900 
ENDS 09031000 pe 
MAKESURE! 09011100 
OBJECTFILE &8= O03 09011200 
FINOCLL&TAMC 3384197)» Os SOURCEFILE?USERCO EPUSERCGDE DS 09011300 — 
DOING t# §3 09011400 ~ 
WAITFOR $s TAMS 09011500 
Nf A 090 B00 penladen 2 a, 
BEGIN 3 CASE 5 09011700 
IF EVENTS£E1)] NE@ 7 THEN GO BAD; 09011800 
ACBAS 13 NTS 13 % S VRC FILE “OFPTR 090 850 9 ets Sot etre : 
T t= MAKEFNC®ATM Lt 23 Ros 09011900 
FIND(LL&TAME 33501173» 0sT» USERCODE *USERCODE 5 eye eeoe 
WA OR ‘A 90 UO 
TEMP $= 43 09012110 
DOING t= 63 09012120 
END CASE 53 O90 0 F 
BEGIN. .% CASE 6 09012140 
09012150 


Me eld te “THEN: Go BADE 


N B THEN % NOT DATA 


HOO aR. 
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< 8, a Le g 0 * n 7mm s TE = x. x, . 


IF ACBASE] GEQ@ O THEN &% SOURCEFILE NOT EMPTY 


09012170 


BEGIN 09012180 e 
DISKREAD 32 NTS 3 % ADDRE OF "yy" F 312190 Ba tel Bt dost se 
WANT %@ VDISKREAD3 09012200 ; 
DOING t= 73 | 09012210 |@ 
D TO ee “1-1: 5 7 0: 3 
END} 09012220 ‘ 
60 TO CASES) 09012221 |@ 
ND ASE 6 SoC on cs RS 6° 110) C17 0 i 
BEGIN % CASE 7 09012240 7 
IF WORKLLJSTENS THEN 09012250 3|@ 
= N Fs See ee OO OTR OAC: : asec ot odin oe Pes Se : 
ACBASE) t= CONCISEBIT; 09012270 19 
CONCISESIT 32 13 09012280 1|@ 
ORK(O] ts O38 09012290 a 
"WORKEL) t= CLL#SYSTEM) & 11684711]3 09012300 "9 
WORK(2] t# WORKEG)] t* ERRSW $= USERCODES 09012310 | \@ 
WORKE3)] t= ALBASE41] t= SOURCEFILES 0901232000 5 
ALBASE+2) t= FILENAMES 09012330 
RUNI t= "LOAD "3 09012340 |@ 
RUN2 t= "CANDE "3 09012350, is 18 
WANT t= VDISPATCKH3 09012360 19 
DISKWRITECESP1)3 09012370 24 @ 
TOUTC"WAIT™ ">NOCRLF)S gO ee 24 
SOURCEFILE t= FILENAME t= 03 09012390 ‘6 
TEMP t= 33 09012400 a 
sec UNG Sa BY a es Be 9012410. 24 
END ELSE GO CASE8S 09012420 ‘e 
END CASE 73 09012430 Ri 
4 A A 9 O90 CY ea Rtn be teak j 
CONCISEBIT t= ALBASE]3 09012450 ‘e 
SOURCEFILE t= ACBASE+1]3 09012460 x 
F NAME ts BASE4+2)3 OCS GE Wd © Ne ee ee * 
Fisea 09012480 1@ 
IF GOODOBY THEN . 09012510 s 
BEGIN O90 AO oe ee ee RRO 
FIND(LLQIAME 33841871» 0» SUURCEFILE+16? 36)» USERCUDE* USERCUDE)} 09012530 
DOING &t= 93 WAITFOR $= IAMS 09012540 3@ 
ND 0 TO cASEQS ee -1-1° 5 0-1-1-1: sates 29 
END CASE 83 09012560 | 37 
BEGIN. % CASE 9 09012570 a @ 
IF EVENTS(1 Js? THEN OBJECTFILES sSUURCEFILEs(6#36] ELSE GOODUByt=FALSE;09012580 | 29 
CASE! 09012590 x 
OK (WORK); 09012600 «|@ 
TWXOUTCLL» WORKLOJs 429193 09012700 ee 
If TPCOUNT NEQ ® THEN 09012710 ‘e 
BEGIN % TELL USER LINE NUMNBERs 09012720 ) 
z Ly a U9 v () Ee SE PRAIA eee eee Ae 5 
TteIF ALTI=#TEN@ THEN ALT-1] ELSE ALT): 09012740 
SPECCWORK»sT, (21827 1+REALCT, C182] EGL 3))3 09042750 18 
rae WORKLO 09042760 etter ch ai 
END TELLING LINE NUMBERS 09012770 ‘e 
“LINECLEARCLCWPAL¥I)3 09012800 so 
DURE ES z AM N 09942900 51 
BEGIN 09013000 s 
T t= MAKEFNC"4S"eLL)3 09013100 =| @ 
MAKEFILECLLAL3(3324117 35 1p T» USERCODE*FILETYPEs"2)3 09013200 5 
ENDS Te | 09013300 ss 
FILESOK t= TRUE 09013400 co @ 
END CASE 93 | 09013500 | , 


END ALL CASES; 
EXIT: 
END RESTART]ITS$ 


09013600 
09013700 
090 800 


Rete Wi Re i i RO i Rt ee kk eee eee KEK HENS LE AOO0000 
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1 
2 PROCEDURE MCPMSG (LCWsA)3 BOOLEAN LCW3 ARRAY ACO]3 14001000 
3 ELSISESAAAERAAERLAEERCERALALESE CEASA AEA T EEE LEAL EEE EEE LLL ELT res 002000 
4 BEGIN 14003000 
5 LABEL SETTs»EXIT3 14004000 
6 REAL T3 0U5000 Let 
7 14006000 
8 STREAM Tee eEDURE MAKEBOUMSG( WAN) VALUE NB 14007000 
3 B i Nt ee PR UNRNOO: oo toe 
fo DIt=ns DStsl1 LIT ™ RUNNING, "3 14009000 
r NCDI2=D79103 DSt=#10 LIT "COMPILINGe”); 14010000 
n2 END MAKEBOJMSG3 000 Tee 
14012000 
@™ STREAM PROCEDURE SQUASHCAsC)3 VALUE C3 3 | 14013000 
ps _ BEGIN LABEL EoLs LOCAL TOGA OOO 
n6 SI¢sA3 DI3SA3 TALLYt=13 TOGS=TALLYs TALLY!=03 14015000 
eo” 2(¢36CIF Sc = * * THEN 14016000 
5 L3 ____ BEGIN SIs=Ste13 : +182 6 10] 0 Ee eee ee 
9 IF SC # ™ * THEN GO TO L3 14018000 
or SIlssSIm13 14019000 
1 IND ar ro has ete se et eee he PP OOOO eye 2 Sk eee 
p2 IF SC=C THEN 14021000 
@ BEGIN 14022000 
24 TO TC eT | ee Sc) ae ses 
p END} 14024000 
@ IF SC = LEFTARRCW THEN JUMP QUT 2 TO g3 14025000 
B7 DSt=CHR))3_ mtg Vee AOU ZO000 6 od a 
a E3 2(DSt=36LIT™ "); 14027000 
or. END SQUASH 14028000 
Ba eee aeeeermseemereaeesees 2°)" 410 Re a a ae 
3 STREAM PROCEDURE EXAMINECWORKesL)» 14030000 
@> BEGIN LOCAL Ts LABEL LisEXxITs 14031000 
B zWORK D ql DissH14+483 f OO Oi te oe ee eer a 
- 6(¢ % 6 WORDS MAXIMUM IN UUTPUT ARRAY 1 14033000 
@ Li? IF SCs" " THEN 14034000 
SIlteSIe13 GO TO Lis 14036000 
@ » END3 14037000 
SC=LEF H P QUT To EX 
IF SC=ALPHA THEA 14039000 
@ BEGIN 14040000 
OSt=LIT"O"S OSSECHRS 1440419000 
6OCIF SC#ALPHA THEN DS*#*CHR ELSE DSHSLIT”™ ")3 14942000 
@ 2OCIF SCwALPHA THEN SI?PSSI4+1 ELSE YUMP OUT)3 14043000 
TALLYS@TALLY 413 14044000 
END ; 14045000 
ew ELSE 14046000 
BEGIN __ 14047000 
SlesSle13 GO TO L433 14048000 
@ F END )3 14049000 
ae EXIT: . . 14050000 
5 DItSL 3 THsTALLYs; STs#Loc Ts OstenpHs; 14051000 
@r END STREAM PROCEDURE EXAMINES 14052000 
p Qs 00 
P STREAM PROCEDURE ERRORMESSAGE CWORK)3 ae a 14052200 
Or BEGIN. a Ge a | 44052300 
a ae DIT iaWwORK; | : : wee oie one ete i ; Mis Ww 0 
@ 
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7 2 ~ = 


OS @ Ww tt St tt Ga) Ry AT 5 Th 5 ~. 
© & = 


G2 & F BR 


DSt=47LIT"SYSTEM ERRORE TASK WAS DISCUNTINUED@"PLEASE WAIT@="; 14052500 
END3 14052600 
05 
Ramee een nre rer ar rear teat serene sees tere reer eeseterernnereresersceeceses thO53000 
14054000 
IF NOT BOOLEANCDOING) THEN % FIRST LIBRARY MAINTENANCE CALL 14055000 | eee 
BEGIN 14056000 
SREG?=BASE+LIBMSGCTR@ACBASE)3 14057000 
DOING t= 33 ent Des Gye en meet Oe ce 14038000 
END; 14959000 
14060000 
% EVENTSCi) = 0 FOR EQJ SYNTAX ERRORS, 44061000 2 
r 4 1 FOR EO Oek. 14062000 
4 2 FOR tes DS@EDe 14063000 
b UR tas A tag anigesee et aa 
% 4 FOR BOD, 14065000 
% 5 FOR LIB@MTNCE IGNORED, 14966000 
, 6 FOR AMTN MOVED 14067000 
% 7 FOR LIBMTNCE CHANGED. 14068000 
x 8 FOR SECURED FILE. 14069000 
a i OE ee ee OPO OOO ess. Sas cn Pre era 
% 10 FOR NOT ON OISK. 14071000 
% 11 FOR NOT OBYECT COOE FILE. 14072000 
Ba Be ete ee 3000 0 eet Sian steel Talos lk le a aS eh oat Set ete Poe et 
IF EVENTSC1)] = 4 THEN % BOU EVENT 14074006 
BEGIN 14075000 
ITF BOJMSG THEN % INDICATE ACTUAL BOY gz 900. i Sette ek ee Fad ad oka 2s 
BEGIN 14977000 
MAKEBOUMSGCWORK(LOJsCOMPILING)3 14078000 
—TWXOUTCLE*WORKLO}sito tds 79900 eee set. 
BOUMSG&=FALSE3 14080000 
END BOJMSG;3 14081000 
LE IF CONCISE THEN MATCHCRUNZe"CANDE ") Ese tng 
BEGIN . $4083000 
LITOUTC™@§BOV= ",NOCRLFIS LITOUTCRUNI» CRLF )3 14084000 
Nps 40 
MATCHCRUNIs*PAPER ) MATCHCRUN2»"CANDE ") 14086000 
BEGIN 14087000 
READTAPECLL 81303384137 J »8oCoUSERCOLE D3 ee 14088000) 
END3 14089000 
END BOY ELSE 14090000 
09100 BeBe td 
IF EVENTSC1] GE@ 5 AND EVENTSC1] Lew ? THEN & LIBRARY MAINT. 14092000 
eget 140493000 
BM SO Na a ae te es SOON OOO... ne tere ere 
BEGIN 14995000 
ACSREG*LIBMSGCTRIIZEVENTSCIF EVENTS(C13=5 THEN 4 ELSE 133 14996000 
IF LIBMS Rt=LIBMSGCTR*1 LEQ@ 0 THEN IAM t= 03 4097000  —_—_’ ae 
END ELSE IAM t= 3 14098000 
ENO ELSE 14099000 
14100C00 _. 
IF EVENTS£C1] * 3 THEN & DOSED MESSAGE 14101000 
BEGIN 1410902000 
TAXOUTCLL®WORK EO} * 09193 & CR/LF BEFORE MSG 14103000 
SQUASH CWORKLO),"3%)3 14104000 
IF RUNNING AND NOT BOOLEANCHELPTOGGLE) AND NOT SCHEDULINE THEN 14105000 
BEGIN & TRY RUNNING "HELP" PROGRAM 14106000 
EXAMINE CWORK ol 23 ee 14107000 
IF CCOMPARCLEL 1» "EOF ™) OR CUMPARCLOEOL)],"PAR ")) 14108000 
AND: 14109000 
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oon~t DH OH F WHY — 


7 A A 


a> 
@ NY = =) 


51 


CCOMPARCRUN2s"CANDE ") OR CUMPARCRUN2s "DISK ")) 14110000 
AND 14113000 e 
Q Q LE i Si ete tS a A PA OO OS 
BEGIN 14115000 
SETT! NOEREO ISL L Ey % MESSAGE TYPE 14116000 
WORK 47000 
WORKC2ZI3SL(5)3 ¥ FID 14118000 
WORKO3)%SRUNL3 14119000 
= NZ 
WORKC SI Se LLaPILETYPEC34:420%6)3 14121000 
IF COMPARC(L{4)sSOURCEFILE) THEN 14122000 
F COMPARCLE[ SERCQU THEN 14123000 = 
WORK(5] ,Ci%ijissi4s *& wORKFILE TUGGLE 14124000 
WORKEC6)3 SUSERCODE; 14125000 
WORKE7}3eTPCOUNTS 26000. She eee ee 
WORKEC SIS eSOURCEFILE; 141427000 
MOVE C16, WORDSsCTRANDBASE*WORK( 10193 ‘44128000 
— SKW ‘ HO) Se acer ests ache een, 
HELPTOGGLE #1; 14130000 
NORETRY3303 14131000 
JE BOOLEANCUPDATEBIT) THEN # UPOATING WORKFILE dd 32000... ake newline 3 
BEGIN 14133000 
TIESMAKEPNOMLR" LL D3 14134000 
_-—______IF COMPAR(¢WORK(1)T) UR WORK(1)80 THEN NORETRYs3i3  4satasoo00. 2 
END3 14136000 
END % IF cOM14 MESSAGE 14137000 
______ELSE % CHECK TERMINALMESSAGEA ERRORS dd BOO 
IF CCOMPARCLELIs "FLAG ") OR 14139000 
COMPAR(LE1I>» "INVALD ) OR 14139010 
CCOMPAR "to. #) AND COMPAR(LC2)," "2 9020 eae Lee ae 
AND 44140000 
CCOMPARCRUNZ s"CANDE ") OR COMPARCRUN2Ze"DI SK ")) AND lalalooo 
SOUR _NEQ 0 THEN 14444100 
BEGIN 14142000 
LEa)teL (518203 GO TO SETT3 14143000 
END ELSE TWXOUTCLEsWORKLU)»?%2 ; 44000 
END ELSE TWXCUTCLEsWORKLOI]>7251)3 414145000 
END ELSE 14146000 
4147000 
IF EVENTSEC1] GEQ@ 8 THEN & MISC, MESSAGES 14148000 
BEGIN 14149000 
ERRSW t= RUNS 14150000 une 
MSGPTR&SSEVENTS(L 1314163 14151000 
ALLMCPMSG t= FALSE3 14152000 
HELPTOGGLE8= RUN1 t= RUNe t= [AM 32 Q$3 144153000 
NORETRY38@3 ; 14154000 
IF NOT BREAKORWRU THEN IAMS sVERRORE 14155000 
‘GO TO EXIT 156000 
END3 14157000 
14158000 
IF EVENTSEC1) LEO 2 THEN % EQN FUR THIS GU 14159000 
BEGIN 14160000 
ETIME t= ETIME + EVENTSL3]¢C1683213 14161000 
1OTOT ts TOTOT + EVENTS(C4 I] C6832) — 14462000 e 
ERRSWtsRUNL3 14163000 
COMMONCELL t5 WORK(8)3 3 14164000 
IF COMPARCRUNis"HELP  ") AND COMPAR CRUN2» "DISK ”) THEN 165000 
BEGIN : ae ee 14166000 
HELPTOGGLE te OF 14167000 


IF BOOLEANCUPDATEBIT) AND EVENTSE 
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E UPDATE 14168000 
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BLANKCWORKOE14)% SQUASHCWORKIO),""")3 BLANKCWORKEO))2 14214000 


TWXOUT CLL *WORK[O}» 4822)5 14215000 
IF SCHEDULINE THEN 14216000 ee 
IF NOT NOSTOP THEN 14217000 
IF EVENTS(1] NE@ 1 THEN 14218000 
SCHEDERRORS % TERMINATE SCHEOULE 14219000 
END IF EQUMSG3 . 14220000 
TAM te OF | 14221000 : | 
ip Ee Li aa tetera bet en 
14223000 
IF WANT = VDISPATCH THEN % CHAIN REQUEST 14224000 
7 N fa OUQ 
“RUNA 3m ACBASE+1]2 |. 14226000 
 RUN2 ts ALBASE+215 14227000 
: -ND a oe 228000 


BEGIN 14169000 
ee 14170000 
28 OOM 
IF BOOLEANCNORETRY) THEN CANCELCKPTCAL# J) 14172000 
ELSE LITOUTCHOK "eCREF 3 14173000 
NOK 2 Wo BG Rae ee ee CENCE 
IF BOOLEANCCOMMONCELL «€3?12) THEN 14175000 
SOURCEFILES SMAKEFNC™1S "Lb )3 14176000 
Reeeeeremaen Uk Wo Bl 18 1) 58 G0 Ay ere an em YN AY 0 0c eR ne a re 
GO TO EXIT; 14178000 
END3 & IF UPDATE WAS IN PROGRESS 14179000 
ORETRY 03 laisogoo 
IF BOQOLEANCCCMMONCELL ef381)) THEN SOURCEFILES =MAKEFNC"1S*eLL)3 14161000 
See % IF €O¥ FOR HELP PROGRAM 14182000 
\ } ay rN BRE AKODRWR i. - y RAD 14183000 
BEGIN : 14184000 
MSGPTRielF COMPILING THEN 12 ELSE 283 14185000 
a IF OOGLICENSE THEN DOGCATCHER(CLOWsAle])3 14186000 
SCWPREVS =PREVRCWS =LLWORDSS 14187000 
INITIATEDWHILEBUSY!sFALSES 14188000 
END % BAD NEWS _A4189000 
ELSE 14190000 
BEGIN 14191000 
MSGPTR3203 y2000 
IF ACBASE4#1) 85 wORK(C12] NE@ O THEN &% CHAIN REQUEST 14193000 
BEGIN 14194000 
ne = H LFTs E10 9c eae eee 
IF ACBASE4#1],(042%6) NEQ " " THEN GOERRCACBASE+1 )542)3 14196000 
ACBASE+1) 2A BASE+1).(6336]3 14197000 
______ AfBASF42] $8 WORKE13), 0 dO 
END 14199000 
END3 14200000 
wxQ Le Os 2"7CONC SES 3 2 ise, See Nee 
If CEDUMSG OR EVENTSE 1] Ne@ 41) AND NOT Ber enn net rT OGece) THEN 14202000 
BEGIN 14203000 
WRITEASTERISK %= FalSe3 4204000 
WORKLO}*=(IF EVENTSC1J=1 THEN "END "ELSE "ERR ")3 14205000 
MATCHCRUN2s"CANDE ™) WORK(1)8=RUNy ELSE 14206000 
BEGIN 14207000 
WORKC AJ] 4s 14208000 
IF COMPILING THEN "COMPILE™ ELSE: 14209000 
i=3 IF RUNLe CL 2%G)ai THEN FILENAME ELSE 14210000 
RUNG 14211000 
END MATCH CANDES 14212000 
TIMEUSEDCWORKC2)-+TIMECONVCEVENTS(C3).(16' 32)» FALSE) )3 14213000 
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14229000 
IF WAITFOR?21TAM = O THEN & ALL MESSAGES ARE iw 14230000 
BEGIN a i ne SP OA. ret ts totes 
ALLMCPMSG $= BCLIBMSGCTRESRUNIPSRUN2Z820)3 14232000 
IF BOOLEANCHELPTOGGLE) THEN % TRY AND RECOVER 14233000 
F_NO SCHED IN H B® PGM.MAY REQ RE WX NP 5 34000 = 
BEGIN 14235000 
RUNLP="HELP "5 14236000 
RUN2GZ=") K "3 : liars Ete So ea 
WANTS SVDISPATCH; 14238000 
COMMONVALUE 8s ESPI3 14239000 
—_——_——__—ERRORMFSSAGECWORK)$ TWXOUTCL LewORK(OJs47sCRIF DE ss tuo 
END; 14241000 
END IF ALL OONES 14242000 
ga a ng BN Ie aed eet ce pa ee See ns US 
END OF MCPMSG; 14244000 
BR IIIS UII II IOI IIS IGIGIIIIOIISINOIOIII IIIS IIIS OIIOOOIIOD I lik iat 15000000 
PROCEDURE C TCAD A Y ; SoS al origi aaa te Na 
JU IIUIUIIOIIUIGIISIGISIGIIIOISII IUD IIGISUISISISOISIII OIE OUIUIGISISU ISON DF Inert 15002000 
BEGIN 15003000 
_ STREAM PROCEDURE NODISKMESS( WORK» AMOUNT)3 VALUE AMOUNTS 19904000. = = 
BEGIN LOCAL AsB3 ; 159005000 
LABEL L3 15005500 
OL t= LOC Aj SIT 33 LOC AMOUNT; DS te 8 DEC; 15006000 
DIt=wORK$ SISsLOc AS 15007000 
TALLY t= 83 15008000 
Li _8CIF Scs"0" THEN BEGIN ST #2 SI+is TALLY t= TALLY+03 END 15009000, sp eetentoa 
ELSE JUMP GUT); 15910000 
B #* TALLYs OS t= B CHR} 15911000 
= OSts35LIT" SEGMENTS OF BISK ARE NOT AVAILABLE" 45012000 
DStsBLIT™ "3 159042100 
ENDS 15913000 
IF LL=0 THEN me bo 108 Ciel > eee eae 
BEGIN WENEEDTOCOCLIT t= TRUES 15015000 
INC CNUOCOUNT-)3 15916000 
END ELS ABU AT O00 oi ee 
BEGIN NODISKMESS(WORKsEVEWTS£2])3 15018000 
TWXOUTCLL » WORKCOJs4351)5 15919000 
PREVMSG != MSGPOINTER3 M50 20000 oe 
MSGPOINTER ts 473 15921000 
END3 . 15022000 
AM %@ WANT f@ WATTFOR 420; 23000 
END; 15924000 
BIG UICIUIGIUIIISIUIIDIGIISIIIDIGIUIIIIISIDIGIIIISO SISOS III IOI EI Glinorineiniet 16000000 
PROCEDURE POKCA)3 ARRAY Al ; 600100 — 
ASEEIIEIIIOSIIISISIOITIDIIUIIIIEIIIUISINISIISOIIOUUIGOISEISIDIDOIUS GoD iii ith tia te 1 6002000 
BEGIN 16003000 
TREAM PROCEDURE OKMESSC(WORK); 16004000 —_ 
BEGIN DI 32 WORK; 16005000 
OSS=41LIT"DISK SPACE FOUND. YOU ARE RUNNING AGAIN "3 16006000 
i ta ee ae en ae ee POOL OOO cn = Sen ee a AI a arc re 
IF LL20 THEN > 16008000 
IF CDECRCNUDCOUNT))=0 THEW 16009000 
BEGIN TIMETOOKLINES t2 TRUER 03 0000 - Li coat 46 Oe tee S Rate Doerr cee 
WENEEDTOCBULIT 35 FALSES 16011000 
END ELSE 16932000 
F NUDCOUNT LSS C THEN NUDCOUNT = QO ELSE ELS 6013000 Pes Nas pte oe 
BEGIN OKMESSCWORK)3 16014000 
TWXOUTALL ® WORKLO]* die CREF) : ee 16015000 
MoOGPOTA ani ed PR MOG : : ; E 6VL6ooo 
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PREVMSG t= 03 16017000 
ENDs 169018000 
AM %= Q}3 16019000 = 
END} 16920000 
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BOOLEAN PROCEDURE MAKEFOKEVENT$ 16501000 


JUOIGIIOIIIOIIUICIGIIGIGISIIIGIUIGISIOIIIICIOISIUIGIOIDIGITIOIUIO ICICI IOIOICTIDIDIOIGOIO III einiccininicg 16502000 


BEGIN 16503000 


STREAM PROCEDURE CKMESS(WORK)3 Btn Wis Se an Ae 3 416504000 
BEGIN DI &:# WORK; 16505000 
DS t# 28 LIT"SYSTEM OK. * YOU MAY PROCEEDS"; 16506000 
ND3 165907000 2 
DEFINE ACAL) = LINECLL A114; 16307500 
LABEL EXIT; 16508000 
FOR LL 3= LLPREV41 STEP 1 UNTIL MAXLINE § 00 16509000) 
IF NODISKMCP THEN 16510000 
BEGIN 16511000 
EVENTS (O} $8 O8LLE 338332 15I&YMCPOK4it3387)% = = = ROOD 
OKMESSCWORK )3 163513000 
TWXOUTCLL »WORKCO]s29¢CRLF D5 16314000 
MAKEQKEVENT 33 TRUES eee oS i> 201° | ee re ee 
GO TO EXIT3 16516000 — 
END3 16517000 
—TIMETOOKLINES $2 MAKFQKEVENT 32 FALSES BODO epreery Seen 
EXIT: 16919000 
END; 16320000 
ERRRRERERARAEREREREEE SE KKRAKERKAEAAMRAM KE RAR kak kk * x * OO OO eral? Mi, NO tht ee cee AEG Gee et 
PROCEOURE TEACHER(LCW2A)3 BOOLEAN LCWS ARRAY alOJ3 259000100 


JARS UIUISISISISISIIOIUIIISIIIIISIGI III I GIIIINIIOISIDIIOIUIIUIIIOIISI I IOIUICUISIDICOIU IO IE IGlbic einer nie 25000200 


B N at a a is a i rt BODO S00 5 


REAL TePTRsINOXsX3 25000400 - 
LABEL MESAGEs QUITs EXIT; 25000500 
IF SEQMODE OR NO OGGEDUN THEN GU QUITS BOO Oe a a a es ee 
IF NOT BOOLEANCDOING) THEN % CASE: 0 25000700 
BEGIN 25000800 
PTR t= WORKADRSS INDX t= 43 CLEARCALCBASE+1422)3 25000900 = para ts 
WHILE T NEQ@ 4 ANDO INDX LEG 2 CO % SCAN INPUT RECORD 25001000 
BEGIN 25001100 
T t= SCANCPTReALBASEFI NDX12"Z2",NORKENDAURS 5X)3 25001200 
IF ACBASE+{] NEG QMARK THEN INOXS@INDOX+43 25001300 
ENDS % SCAN 25001400 
a + 3 H . : Bt fe Bt te ns! 
MATCH(T»"CONTINU") GG QUITS % IGNORE "CONTINUE" INPUT 25001600 
IF COMPARCTs "STATUS ") OR i" aan 25001610 
B A A = cK 3 G0 ; O20 00 
MATCHC Ts "DATA ") x SUCCEEDING TPUT GOES r0 DATA FILE 25001700 
BEGIN 25001800 
RUNNIA OR NMP N ’ N a (} M AGES VOLT900 
IF FILENAME = 0 THEN. GOERR ("NO FILE"»1)4 25002000 
IF FILETYPE NEW 8 THEN ep ea & WRONG TYPE FILE 25002100 
DA NAS ) = R a "0 ,1)23 0 Q 0 e ere, 
ENO3 25002300 
Pees ") % RETURN TO COMMAND MODE So eanece 
" () Ob 
IF RUNNING CR COMPILING THEN GO TO ME SAGES 25002600 
IF NOT DATAENABLED THEN GOERR(T*#8)5 25002700 
DATAENABLED = FALSE$ WRITEASTERISKSSTRUES GO QUITS 25002800 
ENO3 ’ ee 25002900 
IF NOT: SCHEDULINE ee 25003000 
BEGIN 25003100 


BOGIES ISI ISI ISIC OI IID oni k ei ee tate 826000000 
PROCEDURE INPUTKCLOWe As TTYINPUT*OKOFFSETsOISKLOC)3 26900100 


9 Ok ie i i Ir BIO ni oe tit ee ten toting sis 26000200 


e 
MATCHC(T# "TO ") % SS MESSAGE 25003200 
@ BEGIN 25003300 
BAS H TR N OF RRCAC BASE + ; Q O00 
1 STICK(PTR»L»WORKENDADRS)& 25003500 
@ SSMSG3 LITOUTC"S ",1)3 GO QuITs 25003600 
3 ND : 0) 00 
4 MATCH(T»"TAPE  ) % SWITCH TQ PAPER TAPE MUDE 25003800 
@ |: BEGIN 25003900 
6 MATCH 2" GUER PRGM"»B)3 25003910 — 
7 IF NOT RUNNING THEN GOERRC*NOPRGRM"»8)3 25003920 
@ |: IF DEVICESCONRAC OR DEVICESBIDS THEN GOERR(T#56)3 25004000 
7 _ ® PUT YOUR FUNNY TERMINALS HERE 2 UU B5NOKIOO 
yo 25004200. 
er 25004300 
12 READTAPEC(LL&139L 3324127) +8 e0eUSERCODEIS GO QUITS 25004400 
13} ENDS 25004500 
@ ENDS % IF NOT SCHEDULINE 25004600 
ns _MESAGEt ere bs 
N6 IF PREVRCW = BASE LEQ 35 THEN & NOT ENOUGH ROUM 25004710 
e: IF INITIATEDWHILEBUSY THEN % ORIGINAL REQUEST INCOMPLETE 25004715 
———— ____ BEGIN 25004720 = = 
he IF RUNNING THEN LITOUTC™RUNNING #1) ELSE 25004725 
er IF COMPILING THEN LITOUTC"CMPILNG"51) ELSE 25004730 
: San GG Ne el eS sates et tors Bo isle cal ay Tey WA eae eee 
p2 LEO}s=s" STATUS"S BLANKCLLOJ)3 LI1)%s"0K "3 BLANKC(LO13)23 25004740 
eo” TWXOUTC(LLsLCOJ>11ts2°CONCLSEBIT)3 25004745 
g Zs, see NN 2 a ae cee eg re ee iy i en a ety te OA Se se 2 aan 
of GO TO QUITS 25004755 
:@ Ps END} 25004760 
3 27 DATAFNABLED NM PIR ist 68 9 3 UW AK DATA MOD 00 0) 6 eit sere tas 5 eee 
ee LLOISKREAD 1!2 VSGPTR DIV 3 + MSGFILELOGCS 25004800 
s@F DOING t= 13 25004900 
WA f= VD KRE ADS ‘ 25005000 = 
END % CASE 0 25005100 
® ELSE 25005200 
i © [O00 soo ee os 
IF ere MSGPTR MOD 3 NEG O THEN MCVE(10sWCROS,WORK(TX10)»WORK[O))# 25005400 
e@ TWXOUTCLL»WNORKLO] #6492 = CONCISEBIT)S INQUIRY t= FALSE 25005500 
MSGPTR t= REALCRUNNING OR COMPILING) x MSGFTRS 5005600 = 
IF SCHEODULINE THEN 25005700 
@ » IF NOT NOSTOP THEN 25005710 
: NG BOD ALIN ME UNAM 3 wi Sh 05 O 
BEGIN 25005730 
@ IAM t= VCHANGE3 25005740 
ACBASE) t= SCHEONAME.[6842)3 | 25005750 a 
! ALCBASEs1] t= 633 ® "ABORTED" FILE TYPE 25005760 
@ - FINDCLLSIAME 338413730» SCHEDNAME »6(6242]> 25005770 
SERCODE*USERCODE)S OUS78O  =——— 
SCHEONAME %= C=SCHEDNAME)3 %& TERMINATING FLAG 25005790 
@» TEMP t= 23 DOING t= 14 25005800 
WAITFOR $= TAMS 5005810 ed 
GO TO EXITS 25005820 
@r END ELSE SCHEDGOTO("1)3 25005630 
QUIT: IAM t= 03 INQUIRY t= FALSE3 005840 _ 
END’ % CASE 1 25005900 
@ EXIT! 25006000 
i ND PROCED ACHER; 006100 7 
@ Fs 
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VALUE DKOFFSET»DISKLOCS 26000300 
REAL DKOFESET»UISKLOC*»TTYINPUTS 26000400 
BOOLEAN W __ 26000500 | 
ARRAY ALO} 26000600 
BEGIN 26900700 
REAL STREAM PROCEDURE OUTSUPRCINPUT»OUTPUT)$ VALUE LNPUTS 26000710 
BEGIN 26000720 
OT?SLOC INPUTS DS8=7FILL3 26000730 
__ SItsLOC INPUTS DIt=sOUTPUTS eee 26000740. 
BCIF Sc=" " THEN SrtsSy+1 ELSE 26000750 
BEGIN DStsCHR3 TALLYI#TALLY4#13 ENDS 26000760 
= 26000770 
END STREAM PROCEDURE QUTSUPR; 26000760 
STREAM poeeeuss PLSWAITCWORK)3 26000790 
* 26000792 
DT t=WORKi DOSt®26LITYPLEASE WAIT = NO USER DISK"; 26000794 
END STREAM prec ete PUSWAITS 26000795 
DMMENT__ N H N A 26000800 . 
ira CCATROLS THE PROCESS OF wHAT 1S FOUND, 26000900 
IT BUILDS THE TABLES FUR DATA LINES» AND 26001000 
CALLS ON THE VERS PROCESSORS FUR COMM~aND LINES, 
END COMMENT} 26001200 
STREAM PROCEDURE FIXERRURMSG(SEQ*L)3 VALUE SEQ 26001210 
26001220 
DrzsLOC SE SEQ3 DS: OSt=7FILL3 STt=L0C SkEQs Dysr=tL3 26001230 
popsicle irl re, ERR @ "3 26001240 
ce" f e ote cere ees 50. : 
END STREAM SOC ERUAE FIXERRORMSGi 26001260 
DEF INE VERBV = ACSREGI,C4088] #, 26001300 
2 aS i 
SwOS = ALBASE],[4028) #; 26001500 
TBLTODK = 24» 26001600 
Pen ree eee = #3 26001700 
LABEL CENTRAL» SCANIL»NODISK*EXITS | 26001800 
REAL T»E3 26001900 
DEF INE ae TAS LT ARS) WR ETAT OF a BUD BN0N Os 
CENTRALS CASE DOING OF 26002100 
BEGIN 26002200 
B a eee: 20002300 
IF NOT LOGGEDON THEN 26002400 
BEGIN 26002500 
AM i= VH ; ING 26002600 Ss 
% VOID 26002650 
SO ExyT 26002700 
ENDS 20002800 
IF SEQMODE THEN *% COULD BE LEFTARROW GR DATA LINE. 26002900 
BEGIN % CHECK LEFT ARROW. 26003000 
IF WORK(O] GTR 4 THEN 26003100 
BEGIN % SEGMODE DATA LINE} 26003200 
T8323 ALCGASE) P=SEQINDFSEGLAST S=SEALASTH+INCREMENTS 26003300 
IF SCHEDULINE THEN 26003310 
BEGIN *SEND QUT SEQ NUMBER. THE MCP WILL NOT 90 {Tf 26003320 
E t= OUTSUPR(DECCONV( SEQLAST+INCREMENT) »pWORK(O))3 26003330 
TWXOUTCLL*#WORKCOJsEsNOCRLE D3 26003340 
END3 26003350 
IF DEVICE=CONRAC OR DEVICESBIDS THEN 26003360 
IF SEQLAST2CHKSEQNMBR THEN GUT EUTNSRBENS ELC WHATS 26003370 | 
ENO ELSE T $= 53 %& NULL INPUT 26003400 
ENO ELSE 26003500 
IF. DATAENABLED THEN * INeUT Te DATA FILE 26003510 
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e@ < 
BEGIN 26003520 
@ ACBASE] t= LASTRECORD t= LASIRECORD + 13 26003530 q 
T t= 2 6003540 
1 END ELSE 26003550 
@ BEGIN % NOT SEQ MODE. / 26003600 
3 SCANNERCWORKADRSs AL*) eh. CW» WwWORKENDADRS 3 26003700 See 
4 SREG t= BASE + 13 26003800 
@ |: TE=ACBASE],(333)3 20003900 
6 D A004000 
7 CASE T QF % HANOLE TRE INPUT LINE® 26004100 
@ ; BEGIN 26004200 
ho % WHICH MEANS THERE WAS A CUMMENTs 26004400 
T a %* SO wUST SKIP IT 26004500 
2 AMS 2WANTi=Q3 6004600 . pe eae eae 
" END SCANNER CASE 03 26004700 
@* BEGIN % SCANNER = 1 ¢ WE HAVE A VERB 26004800 
a5) OM M N RE a MK G004B1i0O on 
ie IF CHECKBITCALSREG].(939] DIV 2sREOTRICTEDVERBS) THEN 26004820 
oe” BEGIN ERRSWt=VERBTABLELACSREGI,C9%9]]5 WANTt=VERRORS MSGPTRIE49; 26004830 
8 , E ; ” Pe ; 4 ee ee eee 
: WRITEASTERISK 82 TRUES 26004900 
e* TEMPta 413 26005000 
P IF WENEEDTOCUULIT THEN 26005120 
@ » BEGIN DOING t= 35 26005140 
pa a TOG a ee POU OSIAD ae 
@ SCAN13 WANT &&% VERBV3 26005200 
p7| IF VERB =  VSEQ THEN TAMbSQ ELSE 007 0OS2SO 
ps IF ACBASEJ.(618%15] GTR 1 THEN DOING t= MOREVERBS 26005300 
@ ELSE IAM t= Of 26005400 
BC END SCANNER CASE 13 26005500 nate. 
a BEGIN % SCANNER = 2% WE HAVE A SEQ NUMBER» 26005600 
@» IF FILENAME = 0 OR ; 26005700 
‘ : NOT FILESOK THEN GOERRC"NO FILE%s1)3 A AeA 016 Aaa ee ee 
: E t= ACSREGI]& DISKLOC(4!36%12) 26005900 é 
a] & CKOFFSET(16%4334]3 26006000 
F_SEQMCDE OR DATAENABLEO THEN t= 2 6006100 ee 
ELSE BEGIN TI@ACSREG41I3 SEGINIZALSREGI3 END; 26006200 
@ E.Ci82] ts 73 : 26006300 
If Ts3 THEN IF FIXERRORCWORKAORS*WORKENDADRS) THEN 26006310 ae 
BEGIN 26006320 
@ FIXERRURMSGC(DECCONVCACSREG) ob )4 TWXOUTCLL®L[0]»2401)3 26006330 
MSGPTR $s 213 AM s= Q3 18 O eX ; 6006 0 aera A ated 
END} . 26006350 
@ COMMENT NOW PUT PUT ENTRY INTO TABLES 26006400 
IOSA¥ ed SE mo 0G GHO sgh ees 
GOODOBY 8* FALSE3 2 UBY DOES NOT MATCH SOURCE 26006500 
@ IF DOGHCUSELLL) LE@ O THEN &% FIRST DOG. 26006600 
g DOGHCUSELLL] *=CTRANDBASELROWINUSE J3 26006700 
ACTBASE + TPENTRY}) 33 E3 ; 26006800 
@ | INC CTPCOUNT)3 5 | 26006900 
IF TPENTRY LSS 9 THEN. mee 26007000 pita ata 
BEGIN INC (TPENTRY)3 26007100 
@: ACTPENTRY] 8= TENBS 26007200 
' IAM = DOING &8= WANT 3% O3 26007300 tee 
= END ELBE ee aa re fact . 26007400 
Or BEGIN Er ogi ea oe Vaan, oes Op Be oes 26007500 
et DOING t= TELTODKS = oven 6007600 
® 
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NODISK3 


IF TPREC GTR O THEN &% GET BACK WHAT WAS WRITTEN BEFORE? 


26007700 


BEGIN 26007800 e 
D KREFAD 35 PIKADRS OO Oe eo 
TEMP t= 34 WANT t= VDISKREADS 26008000 1 
END ELSE GO TO CENTRAL? 26008100 1@ 
a 7 _26008200 3 
END SCANNER CASE 23 26008300 ‘ 
BEGIN % SCANNER = 3! WE HAVE A SPEC ChAR 26008400 |@ 
Sass M ts ke, 26009200 oo 6 
END SCANNER CASE 33 26009300 Le 
BEGIN % SCANNER » 48 ITS AN SS MSG 26009400 8 
W TER t=: TRUE 26009500 ss 7 
SSMSG}3 26009600 by 
1AM t= 3 26009700 /@ 
ND AS P 6009800 12 
BEGIN ¥ CASE 5 = NULL INPUT 26009810 13 
WRITEASTERISK t# SKQMOUES % RESPOND IF ENDING SEQ@e MODE 26009820 | W@ 
M . “te » ' ae Se es: 15) 
IAM 8% O3 26009840 16 
END CASE 53. 26009850 |@ 
END SCANNER CASESs 20009900, 18 
END CASE 03 26010000 ‘0 
BEGIN % CASE 1: MOREVERAS 26010100 20 
: GOP eaten teats ys acters thos aa ctsde tense 21 
BEGIN PLSWA]TCWORK); 26040120 : 
TWXOUT CLL »WORK[OJ92601)3 26010130 21@ 
= 20), ee ee a eT er 24 
NODISKMCP t*® TRUE 26010150 1@ 
MSGPOINTER t= 463 26010160 ig 
; 2 2 
ENDS 26010180 1e 
SREG t= SREG + (T &= PAR + 41)3 26010200 es 
ac OE Or POU O FO Oe i a ne ee a 
PARAM t= PARAM = T3 26010400 . 
WANT t= VERBV3 | 26010500 =| @ 
— IF_CHECKBITCACSREGI,(9%9) DIV 2¢RESTRICTEDVERBS) THEN 26010510, 59 
BEGIN 26010520 ) 
ERRSW t= VERBTABLELALSKEG).[ 989193 26010530 3@ 
WANT %© VERRORS MSGPTR t= 493 26010540, i 
GO TO EXIT: 26010550 | 37 
ENDS | 26010560 34 @ 
IF SWOS = TEMP + PAR THEN IAM $= DUING t= O$ 26010600 etter eek 38 
END CASE 13 26010700 t 
BEGIN &% CASE 2! TALTOOK 26010800 ie 
CHKPTCAL#1)3 26010900 7 Qo 
IF TPREC LSS 2@ THEN 26011000 4 
INC (TPREC) 26011100 «@ 
LSE 26011200 ee | As 
BEGIN 26011300 : 
TPREC t= 03 26011400 Phd 
N KRE ; 69011500 — Roasted So, 05 
IF TPDKREL GTR 14 THEN 26011520 “9 
BEGIN LITOUTC™CWAIT%51)3. WANTS®VUPDATE ENDS 26011550 .  @ 
NOD : ‘ ee 6011600 51 
TPENTRY 8&8 [AM 8= O03 26011700 5 
END CASE 23 26011800 1 @ 
GO To SCANIS$ % CASE 3 26011850 
END ALL CASES? | 26011900 | 7 hs 
ER RE. 26012000 : {@ 
END USER INPUTS 26012100 | : 
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PROCEDURE DISPATCH(LCWsA)3 BOOLEAN LCWS ARRAY ALO)3 


27900100 


Kxte ee Wek We ie ei ee eo eae ae ee ite ee in ie aie ie te ae ae ie ae Ne oe se toe et te ke ae ee ee $2 7000200 


BEGIN % STARTS JOBS 
REAL CHUNKS3 
CLEARCWORK(L0), 30) 
WORKCOJ]SSWORK(C14)3=RUNIS % FIRST NAME, 
WORKEC1]$=WORKC3) s=RUK23 & SECOND NAME 
ORK 2308 §8338:1027; TE 
WORKE16)%2IF PROCESSLIMIT GTR O THEN PROCESSLIMIT ELSE 540003 
WORKCY7ISSIF IOLIMIT GTR O THEN IOLIMIT ELSE 540003 


27900300 
279000400 

ON0500 
27000600 
27000700 

OQQORB00 
279000900 
27001000 


se Ueda cle ae ee a UL OO ee fe 


002300 00 


asa RY ik nN A UR tale ‘ 
BEGIN 27001200 
CORESIZE%sIF CORESIZE LSS 2048 THEN 32 ELSE CURESIZE DIV 643 27001300 
WORK(C 20] 23CORESIZE & 234784)5 & CANT EXPAND CORE QQ 00 
END: 27901500 
WORKE 211822563 % STACK SIZE 27001600 
WORKE24732USERCO % USER C 
TAM t= 03 WANT $2 WATTFOR ¢= VMCPMSG3 TEMP ge 33 27001800 
MATCHCRUN2,CO842] s"CANDE ") % CANDE JOB TO RUN 27001900 
BE GiEN: 50/4. 8 ee ea ans ne ap ee PT OU A OO Oe i a hs 
MATCHCRUNGs"QUIKLST") CHUNKS?=2 ELSE 27002100 
MATCHCRUNIs*PUNCH 2) CHUNKS$=2 ELSE 27002200 
-MATCHCRUNGs "LOAD ") CHUNKS$233 ELSE 
MATCHCRUNYs "DELETE ") CHUNKS:=3 ELSE 27002400 
MATCHCRUNGs"LFILES “2 CHUNKS:3=3 ELSE 27002500 
MA RUN1»" " O32 $ 
MATCHCRUNIs"PAPER ") CHUNKS$35 ELSE 27002700 
CHUNKS #243 27002800 
WORKCLC 2033 eC( CHU KSx 62 & Iles? sii} 27002900 | 
WORKCOJ.C2:L)9s13 % NOT pS#aABLE 27903000 
WORKCLLJ&SSERRSW; 27003100 
WORKLi8Ji=4 & SC NDULINR(46%4731)3 % PRIORITY Q0 
WORKCI9IISESP1L3 27003300 
MSGPTR!=s453 27003400 
END 27003500 
ELSE 27003600 
BEGIN % MUST BE USER TYPE JOB. 27003700 
WORKC21) %$= STACKSIZE3 % COMPILER ESTe OR SPEC. VALUE 27003800 
WORKCI9]TSCOMMONVALUES 27903900 
WORKC18)] ts 4 + REALCSCHEDULINE 23 27004000 
EQJMSG t= NOT CONCISE} WRITEASTERISK 32 CONCISE; 27904400 
IF RUN1.(62!6) = O THEN % REQUIRES SHIFTING 27004200 
BEGIN 27004300 
WORKCOJ3"7F RUNY,Ci2:6)]=4 THEN FILENAME ELSE © "&RUNI(6812836]3 27904400 
END SHIFT3 : 27004500 
IF NOT CONCISE AND NOT COMPAR CRUNG "DISK “) THEN 27004600 
“LITOUTC*RUNNING "#37 00002")3 004610 _ 
MSGPTR t= 443 279004700 
END IF NOT CANDE TYPE JOB3 27004800 
wORK(¢ C33:15) 8 swORK 1813 % PRIORITY 27004900 
RUNNING #2 TRUE3 27005000 
STACKSIZE tePROCE SSLIMIT 1=10LIMIT {CORE SIZE taCOMMUNVALUE 4803 2709005100 
F EQUA HEN. 05200 
IF NOTC CCOMPARCRUND, SC ANDE ")) OR CCOMPARCRUNZ 2 "DISK "))) THEN 279005300 
BEGIN 27005400 
WORK is RS EOP % AB QUA LN O0 00 
ENTERESP(@LLsOsAC e133 ot SCRATCH TABLE ENTRIES 27005600 
EQUATED | sai ewe 27005700 
ND. GOS800 
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RUNJOBCLL&WAITFOR( 332418 7J»wORKLO)> 023 
END OF DISPATCH; 


ERSBARERALSRESERAESE RRR ERS PESERESEREORE REALE EERE PR ERARERRERARARAELE LAAT E 


PROCEDURE DISKREAD(LCWs Ad} BOOLEAN LCw3 ARRAY 


BE. N 


27005900 
27906000 


BOOO00N. 


28000100 


EASA ET RASS ERE CARER ARES SARE OTE THERE NO ASA SECS ESAS ET TERRE Re Rue ye eb O00200 


LABEL Ts 28000350 
IF NOT BCUVOING) THEN & OG READ InwlTIATE. 28000400 
BEG eNO e 
IF PREVREW = BASE LEQ 33 THEN % AREA IS TOO SMALL. 28000600 
BEGIN 28900700 
RRSW t= "TOOLONG"S 28000800 
MSGPOINTER 23 93 28900900 
ERRORCSREGsLCWrAL*))2 28901000 
N NA a sf ROOM BO J 3 
ELSE 28001200 
BEGIN. 28001300 
a iS a oe ee ROO LOO 
SREG $= (DOING#=1) + SREG3 28001500 
eee $= TAN} 28001600 
DISKIOCLL&IAMCS33413 Tijols ACOJ),SREG*30,LLOISKREAD)3 289001700 
“END OF READ INITIATE 28001800 
END EL SE 28001900 
BEGIN % READ IS COMPLETE NOW MOVE IT TO WORK, 28002000 ss 
WOVET HS WOES ACSREGI]-NORK[OJ)3 28002100 
IAM $= O3 28002200 
___ENO IF REAQ COMPLETES 28902300 000 
END OF DISKREAD; 28002400 
ES PPP SESE SCE CSS TSC LCST CCC STC LO LOL ESC CCTCCCALIL CCL LI TL TTT r 30000000 
PROCEDURE OOPS (LCWs Ads BOOLEAN LCWs ARRAY ALO 300001 kek ene 
SSS PE CCS CEC CLEC ECC CSC CoC SCC CST CLL TSCCCLLLCLC CLT CCT TTT 30000200 
BEGIN 30000300 
LABE 13 30000350 
SREG ts BASE = ALBASE)s 30000400 
ERRSW t= ALINCCSREGITA 30000500 
MSGPOINTER ¢% 133 _30000600 ae 
ERROR (SREGs LCWs AL*J)3 30000700 
END OF OQOPS3 30000800 
Li ko he ae ee ehh he hd ah ha co RRR REE ERT 31000000 
PROCEDURE DOGCATCHERC(LCW2A)% BOOLEAN LOWS ARRAY ACO]; 31000100 
FoR te te tO RO iit TORIC TOO IOI III gigi toto bok 31000200 
Ser: 2002 0 EAR aa ee Re oes aa ee DE el Se Ie TE SRO eRe eran eT © 91S: 1° 1am eee 
LABEL T3 31000350 
IF NOT BOOLEAN (DOING) THEN 319000400 
BEGIN % COLLECT TANK KECORUS, 31000500 | 
“DOING t= TEMP $= 42 DOGHOUSECLL J #203 31900600 
LITOUTC™CWAIT) “*NOCRLF DE - 31900700 
IF TPGOUNT NEQ@ O THEN WANT ts VUPDATES 31000800 
END 31000900 
ELSE %& COLLECTION FINISHED. 31001000 
BEGIN 31001100 
DOGLICENSE :2 FALSES LAM t= 3 31001200 
OOSCATCHERS 3% DOGCATCHERS "13 31901300 
CAN DATAS SDOGCATCHERS LEQ O 00 00 
LITOUT("PROCEED"s CRLF): 31001500 
END IF3 31001600 
END DOGCATCHERS$ 31901700 = 
Mo ee te ett eae iii OI ION IO a i ee ek kt 32000000 
PROCEDURE COMPILEITCLOWeA)3 BOGLEAN LOWS ARRAY ALOIS 32000100 
RO IO ot oi RESO III UII On Benne tek 32000200 
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BEGIN 32000300 
LABEL Ts 32000350 
4 40 
% GENERATE THE LABEL EQUATIONS FUR THE COMPILER. 32000500 
% 329000600 
ARCWR 0) 9)3 VOO700 = 
WORKCOJS=¢WORKOCL4)8=RUN1).06336)3 SFIRST NAME 32000800 
WORKCLJS=WORK(15):3SUSERCODES *SECND NAME 32000900 
WORK(3):2103 WURKEL 17135123 FILES TYPE 32001000 
WORKCA 8*"CUDE "@4(424385];3 ; 329001100 
WORKC 1878S" CARD "B4T124385); 32001200 
__DISKWRITECESP2)3  CLEARCWORK[0]529)3 32001300 2 
& 32901400 
& GENERATE THE OBJECT SKELETON CN THE OYISK, 32001500 
a 001600 =, nace 
WORKELGIESWORMCL7IN=3"7777777777"5 STIME LIMITS 32001700. ae tte Ue ALD 
WORKC 18] 8843 4PRIGRITY 32001800 ; 
eae ee WORKC20) 2943 Z2NQ CORE Qi9g00..-—sss—tss 
WORK (211255125 SSTACK SIZE 32002000 
DISKWRITECESP1)3 CLEARCWORKEO),29)3 32002100 
x GENERATE THE COMPILER CALLOUT. 32002300 
| 32002400 
___________WORKE14 13 SABS CWORKEO1! 2RUN2616(154335))3 S°COMPILER, = 332002500 See Ble Baie 
WORKCOLISSIF RUNL,£CO%12I="1S" THEN 32002600 
FILENAME ELSE RUNIS ‘FILENAME. 329002700 
_ CS WORKE O21 3 F446 BF BF OISESP YC $33°15),540B 5.5 _ 3? 002B800. LL 
WORKE3I]3=” 015K "3 WORKCIZIIZESPZARLBL EQN 32902900 
WORKED 1618 84+SCHEDULINRS % PRIGRITY 32003000 
WORKC IGS MMONVALY 35§ THEN SE 33 Bo Oe tae a 
WORKE22):8%83 WORKL24)]3=5USERCOLES *SAVE&USER 32003100 
WORK{16) t= 32903110 
IF_ PROCESSLIMI GTR O THEN PROCESSLIMI B"7777777777"5 320038120 7 
WORKCi7)] te 32003130 
IF IT@LIMIT GTR O THEN LOLIMIT ELSE 3"°7777777777% 3 32003140 
WORK C2 33 290 ee ected as Ste he 
IF STACKSIZE GTR O TREN STACKSIZE ELSE 5123 32003160 
STACKSIZESSPROCESSLIMITS=IGLIMIT:=CORESIZE :sCOMMUNVALUE t=U3 32003470 
4 20 arn sreere 
% NOW TELL CANDE & THE MCP, 32003300 
, 32003400 
OMP NG ts TRUES WRITEASTERISK &% CONCISES __ 32903500 
BOJMSG 3:= NOT CONCISEs EQUMSG t= NUT CONCISE; 32003510 
MSGPTR t= 433 ‘ : %0CS32003550 
AMs=Q;3 WANTS=WA TFOK t= MCPM sj TEMP 33 33 20 600 pos Bees 
RUNJOBCLLOEWAITFORE 3384197) »WORKCOI20)3 32003700 . 
ESP1LISGETESPDISKs ESP2ISGETESPDISKS 32003800 
ND oO OM 32003900 re 
KNOw et ee kk Re to Ra MOO a Ro kk kk 33000000 
PROCEDURE SETUPFILESCLCWsA)s BUOLEAN LCW 3 ARRAY ALOI3 33000100 
Ne fe ie III IOI III IO II III OIG IOI III IOI IO IO tok 3000200 — _ 
BEGIN 33900300 
REAL T3 33000400 
ASE DOING OF QQ00500 
BEGIN 33000600 
BEGIN % CASE O 33000700 
FILESOK t= FALSES 33000800 _. 
T $e MAKEFNC"ATY*LL D2. 33000900 
MAKEPILECLLEIAMES3UALI729 19 T+USERCUDE» 0» 1033 33901000 
T Sm TAMPh Cet a4et6ls : 001100 
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OD I 2 lien 


QO0700 0 


32002200 0 


@ 
MAKEFILECLL& LAME 33484127 Jol eT» USERCUDE»OsTBLS2Z)3 33001200 
Y ) ACBASE] ts Eerie eon t= O03 33001300 
b3 NEO ts yn one ATeore 
1 TEMP ts 13 33001500 
@ |: DOING t= 13 33001600 
3 WA i j A 0) ekey 
‘ END CASE 3 33001800 
@: BEGIN &% CASE 1 33001900 
6 IF _INCCACBASE]) = 1 THEN . m 33002000 
7 IF EVENTSC1i} = O THEN INCCALBASE)) ELSE 33002050 
@ |: BEGIN WORK(CO] $3 03 WORKL1J. t= TENS 33002100 
7 DISKWR CEVENTS ] AITFOR ts TAM 
ho END ELSE 33002300 
or BEGIN IF EVENTSC1] = O UR ALBASEJ#3 THEN k NO USER DISK 33002310 
N2 BEGIN MSGPOINTER $= 463 33002320 
_ FILENAME ts SOURCEFILE t= 03 33002330 
@ 4 REMOVEFILECT@LL8130 33841471 >MAKEFNC™ AT" OLL) #USERCODE DS 33902340 
5 REMO Te MAKFFNC"LP >» 2USERCODE); 33002350 
6 END ELSE 33002360 
ov BEGIN ACTBASE*10) t= TEN@S WRKTBLANK t= EVENTSC1]3 33002400 
Ne AN KPICAL*})3 _—33002500 
FILESOK 3= TRUE3 33002600 
@ | ENDS 33002650 
AM t= Q 33002700. 
P END3 33002800 
2] END CASE 13 33002900 
NO. Hi 
ia END SETUPFILES; 33003400 
@ - BI IOI ICI IE II IIOI I IIOIOIDII IG IIOISI ICO IUDIUIOIOIGISIG I idiioi icieto ioe tee 34000000 
j PROCEDUR RROR( Sei CWA); $3 REY ; BOOLEAN nz ARRAY alOl;34000100 
Ps REN HE RENAN EERE EERE EEN RH EH AREER ER AEE E ARERR AA REE EEE HHESGONNZON 
@ - BEGIN 34000300 
REAL STREAM PROBED URE MBER CERRSWaoLsCHRTOGs STRIGG»MINTOGsPLSTOG) 5 34000500 
@ VALUE ERRSWsCHRTOGsSTRTUG»MINTOG»PLSTOGS 34000600 
BEGIN AR 
SIt=_L0C ERRSW3 Crss_s OSHS5LITMERRS 3 TALLY 3253 34000800 
& CHRTOGCSI:=S1+73 OS:S1CHKS TALLYS=TALLY+14 JUMP OUT FO EXITDs 34000900 
STRTQG(SItSSI4+13 OStS7CHRe TALLYS=TALLY+/s JUvyp QUT TQ EXIT)3 34001000 _ 
MINTOGCDS&SLIT*@ "4 TALLYSSTALLY41)3 34001100 
@ PLSTOGCDSS=LIT4"5 TALLYS=TALLY 41 )3 34001200 
MINTOGSaDIs OS%e8 DECS Di s*MINTOG3 DSta7FILL3 34001300 
SI2=MINTOGS BILsMINTOG3 34001400 
e@ 8CIF SC=" ™ THEN SI:sSI+1 ELSE 34001500 
BEGIN DStsCHRs TALLYS*TALLY+1s ENO)S 34001600 
EXIT? 34001700 
@ MKER t TALLYS 34001800 
“END STREAM PROCEDURE MKER3 34001900 
: Maree Per er ere Maree eet eres essere EH eae aearereHennreseseeesevesere sees J4U02000 
@ | T8t=MKERCERRSWe perez)» eL> CERRSWelli2)=1)-CERRSWe(6212)] GTR 0)» 34002400 
? RRS n i 33 ; 02200 
TWXOUTCLL®LTO}e T+ 13 34002300 
@} WRITEASTERISK t# FALSE3 34002400 - 
T 33 MSGPTR3 34002500 
j LINECLEARCLCWPAL*))3 34002600 
@ | MSGPTR t= T3 34002700 
: IF SCHEOULINE OR HELPFUL THEN 34002800 
BE BEGIN % TERMINATE SCHEDULE I/P & EXPLAIN WHY 34002900 
@ Fs IAM 38 VTEACHERS DOING t= 43 % DONT SCAN INPUT 34003000 
bf LLDISKREAD t= MSGPTR DIV 3 + MSGFILELOCS 34003100 
@ 


oo ~ mom Oo FF wNnyY = 


a ey 
NO = 6 


= 
fe 


>= 
a an 


WANT 32 VDISKREADS 34003200 
WRITEASTERISK t= TRUES 34003300 
ND 3 O00 


END ERROR PROCEDURE} 34003500 
PER SEU CSET EPSPS SCC U CSCC SC CECE CLCCESECSLSCALTTLCLCOCL TT Ss 35000000 
PROCFEOUR OSEWCRKTABLE Ws A BOOLEAN i ARRA ALO 000100 
SRC PEC R SS OSE ESSE ESOC Reece eee eee eee eee ec Lecce Se ee es | 35000200 
BEGIN 35000300 

AB A x > OQ OO Sh Secs en Sa ar 
CASE DOING OF 35000500 
BEGIN 35000600 

= n ASE 0 sant i ccaat GP NS a Fo BB OO OP OO cele or 8 eh 

IF GOOOCBY THEN 35000800 
GOOOCBY t= TPCOUNT = 03 35000900 

NO er” HEN JERR CNG Sau H OOTOO0O 0 
IF TPENTRY LSS 9 THEN Terre eTTT ee $= TENS; 35001100 
IF TPREC GTR @ THEN 35901200 

Qin coer aied Sy Seiten oe Geet 
LLUDISKREAD ¢= TPDKADRS 35001400 
DOING s= 3 35001500 
7 END ELSE GO TO CASE: 35001700 OO 7 

ENO CASE 03 . 35001600 

149090. eet aes 
BEGIN % CASE 1 35002000 
CHKPTCACL*))3 359002300 


: a i ee ee Se = 


IAM 23 03 


2s 8 8 & 
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; 35002300 
END. CASE 133 35002400 
END AL ASE Bh a Sh ee ee pe eS ee Oe res ee 
EXIT: 35002600 
END CLOSEWORKTABLE; 35002700 
ERA ERORRERERRRRERREREERERALAEREREARREE REE RE LELEAR LE LLELELELLILLE TCT foot Dees te 
PROCEDURE CHNGPSWOC(LCWsA)3 BOCGLEAN LCw3 ARRAY ACOJ3 36000100 
SCG ee ge enn et cr ncn er ean nenenn men sen aoug Cade 
BEG 600 
LABEL ERRs EXITS 36900400 
STREAM PROCEOURE OLOPSWOCW)3 36000500 
BEGIN Ols=ws DSs23cLIT"PLEASE ENTER YOUR OLD PASSWORD" END3 6000600 irises 
STREAM PROCEDURE NEWPSWD(W)3 36000700 
BEGIN Oliews OSta2aLiT*NEXT ENTER YOUR NEW PASSWORDS END3 36000800 
STREAM PROCEDURE VFYPSWD(W)3 | 36900900 nes 
BEGIN DI ssw; DS?s31LIT"PLEASE REFEAT YOUR NEw PASSWORD" ENDs 36001000 
STREAM PROCEDURE SCANPSWD(WsSsEADRS)4 VaLUE EAURS3 36001010 
BEGIN LOCAL SV»sDV3 36001020 
S1t2W3 | : | 36001030 
DIeaeS; OSteBL ITO 43 OL 's0T"73 36001040 
7CIF SC = LEFTARROW THEN 36001050 = 
BEGIN , 36001060 
SVteSI3 SIS=LOC SVs Sl seSI+53 36001070 
DV#=DIs DI#=LOC EADRSS DIs=DI +5; 36001080 
IF 38C"DC THEN JUMP rabid , 36001090 
STteSyj DIssOVs 36001100 


___. ENDS . | | ; 36001410 
IF SC=" " THEN JUMP OUT? 36001115 

IF SC=2")" THEN JUMP UUT3 DStSCHR)3 36001120 
END STREAM PROCEDURE SCANPSWDS | 6001130 
Xevecsdsesvssceseeesucesstscessteretscstovesttstaresanssoretoonnesnnes e3O001140 
CASE DOING oF Rae ee ee ee eee a 96001200 
BEGINS Sou be sone ae le vk a i a ee 6001300 


é@ 
BEGIN % CASE 0 * REQUESTING CURRENT PASSWORD 36001400 
@ IF SCHEDULINE TREN GUERRC"CHANGE 940)3 36001500 @ 
OLOPSWO(WORK)$ TWXO 2nORK Oj» 30%4)3 BO Ok ee et Pe ee ee 
- BLACKOUT 3 36001700 ' 
e CLEARCATBASE+2)+ TEMPI33 DOINGIN13 7 36001800 |@ 
A OR ts NP POU C3151 BS 101 0 Om elec ae ee : 
END CASE 03 36002000 4 
e Rie gb a bes se trketivin ed tastes nes se ho teas eens sper sanieieieadsne aacsen ese 10008100 |@ 
= SCANNING FOR C RREN ASSWOR 6002200. . 
SCANPSHOCWORK( 130 ALBASE 1» WORKENDADRS }; 36002300 z 
@ |: MATCHCALBASE).C6t42 a8 ") GO ERR; 36002400 /@ 
y Schatten See MO ORO ce on ee ol q 
BLACKOUTS 36002600 ie 
® DOING t= 23 36002700 " 
WA R t= NPLUT 3 36002800 = ie 
END CASE 13 36002900 le 
® Bee esateceendeee gay eases tts ni caess ess sits sss 48 eres eee 4 ene tees ye ee'g's'9 36009000 a 
= ANAL A PFASSWOHR £00 OW ¢ Raia te een 
SCANPSHDCWORKC11°ALBASE+1)> PWORKENDADRS) 3 36003200 @ 
@ MATCHCALBASE+1),COS42]2" ") GO ERR> 36003300 "7 
PSWOCWORK)% TWXOUT ewORK (QO i ee OS OO se a eae Mee ae a ie ee . 
BLACKOUTS 36003500 ‘Je 
@» DOING t= 33 36003600 Re 
WA OR is NP LEU Al 01 ee ae tee aoe ee ee ee a aS ee oe 21 
P END CASE 23 36003800 a 
@ | Bere e eee ree m een ee nase ners EHat ete Ooeereenereererareerceererseoesccses cIOU03900 21 @ 
A N 2% A = SCANNING 0 A iN oa a GUO OO 0 sotto ae te a te ee 24 
a SCANPSWDCWORKE 1)* ALC BASE+2) »WORKENDADRS D5 36004100 2 
@ ee MATCHCACBASE +1 1,ACBASE+2 }) ELSE GQ ERR3 36004200 ci @ 
8 i , VISKRE AD s PFREO ; 600 eae bs eet 2 
F WANT t@ VOISKREADS 36004400 i 
2@F DOING t= 4} 36004500 of @ 
an ste NB art en UCN BOO. eee te i 
ee P : Beare ce ccrrn eta reere decree er ete retneseeeas ses tersteseneserscvcsesse ee OU0K700 fa 
s@r BEGIN % CASE 4 » USERS/CANDE RECORD IN CORE 36004800 | @ 
< MATCHCACBASE) (6:42) sWORK(2)]) ELSE GO ERRS 6004900 : 
‘ WORKE 213 SACBASE 411.6242]; 36005000 
) DISKWRITECUSERLOC)3 36005400 21 @ 
: DISKREAD %= USRBASECLOJ$S & USERS/CANDE RECORD ZERO 36005200. = 36 
i WANT &= VOISKREAD# 36005300 a 
Or DOING t= 53 36005400 34 @ 
ND. CASE 43 36005500 ieee 39 
URC R US EEE ETE RCE TE RCC ETO EERE CTT ORT PR OTT er eer ere eee Cet ire 40 
og BEGIN % CASE 5 = PUT NEW DATE IN USERS/CANDE FILE 36005700 «|@ 
WORK(C2)28=DATES 36005800 e 
DISKWRITECUSRBASE(O})3 ; : 36005900 4 
@ IAM ¥m 03 7 4 : (36006000 4@ 
H “END CASE. 53 36006400 : 49 
é END ALL CASES3 36006200 46 
@ GO TO EXITS 36006300 be 
ERR’ 36006400 A 
9 LITOUTC"BADCODE"s 193 MSGPTRi2213 LINE cece w])3 36006500 49 
@r EXIT? | 36006600 . sq @ 
ENO PROCEDURE CHANGEPASSWORD cite a 36006700 51 
: RAO EERE ERA HEHE E RENE A RHA NRE NEROAAHERNEAWREOLHAREEM ERR EAERERAAREE 37001000 52 
@» PROCEDURE THYMECLCW2A)3 37001100 «| @ 
B cell Alii Balik aD Ma ali Salil Si Slitid Bll aliltstind Belt dialice aba alc tabtilael Bakaliobabel Pods 37001200 5 
BOOLEAN LCWS a ae ee 37001300 _ | fa 
@ fF ANRaY: LAE EO RS oe JOE ua eee _ 37001400 {@ 
E ia oS BE GUNG og ee ae ahs emia aia ne ’ el 37901500 wy, 
e e@ °® 


o onnwr~ nm mn FF WH = 


LABEL CUMMY; 37001550 
WORKCO) 3 "USER ies BLANKCWURK(O))3 37001600 @ 

ORK ts ro ANH A. lal QO) @ 
WORKE2}F@DECCONVELLD: WORKL2]:SWwORK(ZIR"LINE "[6848830]3 37001740 


pe 37001720 

WORKEO a Gk 0 BOC 

WRK TOA 3 "TIME [S"3 BLANK(WORK(COI)3 379001900 

TIMEQFDAYCWORKLCI Js TIMECONVOTIME(1)*TRLED)S 37002000 
7 CR 7 

WORKEZOJ te "CRE USES BLANK(WORKIO1)3 37002200 

, 37902300 


TIMEUSEDCWORKCLJ+TIMECONVCPTIME FALSE) 23 
TWXOUTCIL»WORKCOJe33e ide 8A HOD 
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PROCEDURE CARRIAGEC(LCWe2A)3 BOOLEAN LCWs AKRAY ACOVE _ ee 
RENEE HENS HERE EE RREHEEEREEAAREAANHEER ORE R REE RENO Eee EE EER IBO00200 
BEGIN 38000300 
a I Bg i ag ad a es es eg ee I OOO Ot td eet 
LABEL ERRsEXIT3 38000500 
CASE DOING OF si oeeeache 
BEGIN BO spaces th Panel tuag 
BEGIN % CASE 1 SYNTAX CHECK 33000710 
IF DEVICE NEQ TELETYPE THEN GOERRC"CC ",56)3 38000720 


WORKCLO] $% "EXECUTE" BLANKCWORKLOI)3 37002500 
TIMEUSEDCWORKE1 Je TIMECONVCETIME Ss FALSE ))3 37002600 
TWXOUTCLL * WORK OJ)» 33123 700; one 
WORKEOJ $3 "Ig TIME"S BLANKCWCRK[OJ)3 37002800 
TIMEUSEDCWORKE 11> TIMECUNVCLOTOTs FALSE) )3 37002900 
TOUT CL WORKCODo 33-107 ON Z000— 
WORKCO) %# DATES 37003100 
TWXOUTCLL*WORKLO)892)5 37003200 
Se i ad Pee) 2 Er ce ea eee POS 261 86: (010 eee 
END OF THYME 37003400 


TEMP2213 WRITEASTERISKESTRUED _s—“(i‘él BNNNBOO LULU 
IF ACSREGSSBASEwACBASEI].£016%215) GEQ 1 THEN 38000900 
BEGIN 38001000 
MATCHCALSREGS =SREG41).(6242)," LONG ") Tisai ELSE 38001100 
MATCHCACSREGI].C6:42],"SHORT “) Te=0 ELSE GO TC ERRS 38001200 
END 38001300 
ELSE 36901400 Pe Ae) 
BEGIN 38001500 
ACSREGI]%="CC 3 38001600 
ERR: GOERRCACSREG198)3 38001700 
ENDs 38001800 
IF (€T=1 ANO CCLONG) UR (T=0 AND NOT CCLONG) THEN 38001900 
B ROQZ000 
IAMta03 GO TO EXIT 38002100 
ENS 38002200 
‘A Preis 2300 2 Pio corey 
LLDISKREAD $= USERLOCS % USERS/CANDE RECORD LOCATIUN 38002400 
WANTIsVDOISKREAD$ 38002500 
DOING t= 43 BOOB i. isk a cette ee Bie ae eee as 
END3 & CASE. O 38002700 


Beccecevevvcctcerecesossensreensstscetnasissatasenersseesrasseevese ts SH002800 


BEGIN % CASE e USERS/CANDE RECORD In CORE 36002900 
CCLONGBIT #= REALCALBASEJ=1)3 389003000 
WORKC1L)$eOPTIONBITSS &% UPDATE RECORD 38003100 


DISKWRITECUSERLOC)s % REPLACE aac Gea RECORD 38003200 
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EX1T: 38003700 a 
-ND PRO DUR ARRIAGE ONTR ; BOQ3SKHOO 
SLES EPCS SPEC Pere Tec CeCe CCT CCCALTVTLeTTrre ricer ere 39000000 : 
PROCEDURE CHNGNAME(LCWPA)S BOOLEAN LCWS ARRAY AL ozs 39000400 2/@ 
ERRERALESESELELAESEE ETERS LALIT ELITE ECTS Rk eK RE 39000700. 3 
BEGIN 39000300 if 
STREAM PROCEDURE NEWNAMEC ADS 39000400 3|@ 
BEGIN 399000500 6 
DItSA3S DSHSZOLITVENTER YOUR NEW NAMES" 5 39000600 
END STREAMS | 39000700 |@ 
STREAM PROCEDURE SAVENAME(FeT»eEADRS) VALUE BAUR OR A ee ee OOOO ROD ee 9 
BEGIN 39000900 
LOCAL SVsDV3 LABEL L3 39001000 /@ 
Slt=F3 Dlest3 DStsLITto"s O58 215 T™ "5 Ds sO] "153 39001300 1 
Lt IF SCs" " THEN BEGIN Slsssl*43 GOL END; 39001200 
15SCIF SC8LEFTARROW THEN 39001300 @ 
oe eS BEGIN 39001310 iS 
SVS=S7T3 STtsLOc SVs SItFS]4+5; 39001320 : 
OVtSDIs DIF=LOC EADRS$ UL?1=01+45; 39001330 |@ 
sae I TN a ag td OO TO aio renege elt ee Ne ne Se Oo 
SIt:sSv3 DIssOVv; 39001350 i 
ENDS 39001360 ed @ 
DS3sCHR)3. - OO BT al tet cg eear a a he ety oe kL a 
ENO STREAMS 39001400 a 
LABEL EXITS 39001500 3 @ 
Strate. a O£ a Ma! OO OG er cite we Ne ee Ne Ee we as eee tl 24 
CASE DOING OF 3900170C 
BEGIN 39001800 2) @ 
B NY % A 0 9OQ1900 _ ; 2 
NEWNAME CWURK)3 39002000 ; 28 
TWXOUTCLL® WORK (O3e2C*eNQCRLF QS 39002100 ry @ 
DOING? 54s WAITFOR?tSVINPUTS 39002200 30 
END CASE O3 39002300 a 
BEGIN %& CASE 1, 39002400 | @ 
SAVENAME CWORKELI>ALBASE Js WORKENDADRS) 3 39002500 
DOING? STEMPs=2; 35002600 3a 
LLDISKREAVs=USERLOC3 39002700 2 @ 
WANTS EVCISKREADS 39002800 Perens 36 
END CASE 13 39002900 a7 
BEGIN % CASE 2. 39003000 4@ 
‘ 2 » WOR ACBASE )»wORK[ 4] ); 900 0a a ote WAS Ee erent ee es 2 7 
DISKWRITECUSERLOC)s 390032C0 a0 
IAM 2 G3 39003300 @ 
. AS . ore) 00 greet eka 42 
ENO ALL -CASES3 39003500 : 
EXIT&IEND © CHANGE NAME; 39003600 4@ 
RE RPTERELEPELE LETTE TTT TPES ETE E TIPE E LETTE ETE T TTL EET TTT e LETT eee ee eee eee 000000 Bok eo, os 4 
PROCEDURE MONITORROLCWsA)5 BOULEAN LCWs ARRAY ALO)? 40000100 
Re Se eee TESA REESE RN METRY aa MS SHEN enG #810000 200 «| 8] 
BEG 0900300 5 
REAL PC»sWORD3 40000400 10 
LABEL EXITS 40000500 i 
MP ts OO 5) 
CASE DOING OF 40000700 5 
BEGIN 40000800 «7 @ 
& ooo Pe eevee n se 8 09 2 0 & stedesetesatarotosasasaroenesesvasevesesorseees4OVU0900 eR eNG treet : sq - 
BEGIN &% CASE 0 = SYNTAX CHECK 40001000 5 
PC #3 AL SRE@S=BASEWALBASE) 14661881533 % PARAMETER COUNT 40001100 | : {@ 
WORD $© ACSREGI#SREGHLI3 & FIRST PARAMETER. 499001200 ; 5 
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IF PC NEQ 1 THEN % wRUNG NUMBER GF PARAMETERS 40001300 
BEGIN 40001400 
IF PC=Q KEN G R "FILENAM™ > - AME REQ K 00 Q 
GOERRCWORDs8)3 & ILLEGAL PARAMETER 40001600 
END3 40001700 
IF WORD $3770 THEN GOERRCWORD,8)s & ON AF NAM 0001800 ae 
IF WORD,C3%3) GTR 6 THEN GUERRCWORD*4¢)3 % 6 CHARACTERS MAX 40001900 
TF FINDAWORDCWORD*RE oWROTABLELC LJ] »>NUMUFRESWRUS) NEQ O TREN 40002000 
NE RR CWORD 013 0.0 C Oi eg ct 
ACBASE) t= WORD #3 wURD.C6%42)3 &% STORE FILE NAME 40002200 
ACBASE+1)] t= ALBASE+2] $3 O03 & RESET EVENTS COUNTER AND ERR, LOC. 40002300 
FINDCLL&IAME 3384137 }»OosWORD»USERC SERCUDE)3 40002400 20 
FINDCLL RI AMC 3384137] 50e WORD, (6% 36) /USERCOLE»sUSERCODE)3 40002500 
DOING $= 13 WAITFUR i= Lam, 40002600 
ENOS % CASE O aaa 
Rawr ee erence cet arenes teasessose ees tesetoesssestarervccesscesecseseress 40002800 
BEGIN & CASE 1 © RESULTS OF DIRECTORY SEARCH 40002900 
IF EVENTS(C1) GEG O THEN & FILE WAS IN RECTORY 40003000 
IF ACBASE4#1}]=20 THEN * THIS 15 FIRST FILE FUUND 40003100 
IF ACBASE+#2]=0 THEN ACBASE+1]*5ACGASEJ % SUURCE VERSION 40003200 
ELSE ACBASE+1 J] t=ACBASE].£6236)5 &£ DO CT_ VERSION 40003300 
IF ACBASE+2] ¢3A(BASF+2]4+1 LSS 2 THEN WAITFORS&IAM ELSE 40003400 
IF ACBASE+1) NEQ O THEN GOERR(ALBASE+1),53) ELSE 40003500 
bo eG OQ03600 
MAKEFILECLLSIAMC 33941573512 AC BASE J» USERCULE 2 89200 )3 40003700 
DOING?323 WATTFOR¢sI Ams 40003800 
NOs _ 40003900 ps BOR ns 
END# % CASE 1 40004000 
Rene ee reer erareas ssc rar see ncetesstaearersrsvetenseesenssensesereg eee 40004100 
BEGIN A ~ ADJUS WoFILE HEADER ¢ 210 ERE eee eee See eee 
IF EVENTSCA] = 0 THEN GOERR ("NU pISk",46)3 40004300 
LUDISKREADPSALCBASE+1I°SEVENTSL2]3 %& HEADER ADDRESS 40004400 
DOING t= 3% WANT 8= VDIJSKREADS Sat tate OU A O08 Saale 2 ie a ee 
ENDs %& CASE 2 40004600 
Beebe tare rere ereenere ren reeeeeteeetecareeereastenseveeeesseesscescces 40004700 
G x $ *_H RE AOL. 1 [¢) + Sen een OO 
WORKL0}8310 & 30£30236232) & 300045233%15] 8 10018342 j4]3 40004900 
WORK(C3),02%18)] t= 73 %& SAVE FACTOR 40005000 
WOR $s "]3 ¢ EOF POINTER 0005100 Set et 
WORK(9],(4385] &= 205 % NUMBER OF ROWS 40005200 
DISKWRITECACBASE413)3 & REPLACE HEADER 40005300 
SKR ia SERS/CANDE REE 
DOING t= 4% WANT %= VDISKREADs 40005500 
ENDs’ % CASE 3 40005600 
' 0005700 
BEGIN % CASE 4 © USERS/CANDE RECORD IN. CORE 40005800 
MONITORAIT t= TRUE; a . 40005900 
“WORKE42) 3% ALBASEJ3 % MONITOR FILE NAME 40006100 == 
DISKWRITECUSERLCC)$ %& REPLACE RECORD 40006200 
IAM t= 03 40006300 
ENDs % CASE 4 QO006400 Ro ees 
END ALL CASES; 40006800 
ae : 40006600 
END PROCEOURE MONITORR: 40006700 
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REAL NCoPTReWORDeMAXPTRe TYPES SETBIT eX 41000400 
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DEFINE ERRCERR1sERR2sERR3)= 41000700 


BEGIN 41000800 @ 
ERRSW t= ERRY & ERR 243%5]3 MSGPTR $= ERR3S 00090 eae eee ae See ed 
IAM %® VERRORS GO TO EXITS . . 41901000 
END#S | 41001300 1@ 
Soe Te ' ' Mi004700 4 
CASE DOING OF 41004900 4 
BEGIN 41005000 |@ 
x oe@eeoe e es 441905100 | oe nt ee rte ° 
BEGIN & CASE Q-= SYNTAX ANALYSTS 41005200 7 
PTRtswORKADRS3 MAXPTR3 =WORKENUADRSS aCe % SETUP 41905300 . |@ 
WHILE CTYPE S SSCANCPTR»WORDs"9"*MAXPTRsX)) NEG 5 DO 419005400 y 
BEGIN 41005500 si 
IF TYPE NEQ 1 THEN & NOT ALPHA STRING 41005600 1/@ 
ALOOS610.. 0 is 
EARCWORD SWORD. Ci25]28)3 & INVALID IF NOT SPQ AND NUMBER 41005700 ; 3 
ENDS 44005710 @ 
= | 5 S i i eR ee ee APO OS 7 0 et coe _ be 
MATCHCWORDe"SET  ") SETHIT t= 1 41005800 16 
ELSE MATCH(WORD»"RESET ") SETBIT t= 0 41005900 j@ 
ELSE MATCHCWORDs"CUNCISE") CONCISEE = SETBIT ei WE OOGO0O. onc! oink tree ee to ee ees ee oe ee cece 
ELSE MATCHCWORDstHELPFUL") HELPFULBIT %t# SETBIT 41006400 1@ 
P ELSE MATCHCWORDs MQUICKLa™) SUICKLOgeIT Ts SETBIT 41006200 i 
HW RD pt BY KB 5 & = NG MLO 0 321 © Egan ti a rm cel aq 
P ELSE MATCHCWORD» "NUSTOP ") 41006400 a 
H Beaty BOAT O, BORE ANCE|BTs ‘Tamt=03 GO EXITS END 41006410 23@ 
2 WALLOnMS'") A = EO OS 0 iat eae I lt a es re ee es Je fy 
P ELSE MATCHCNORDs "FREEFIL") Gat bok TOGGLE Veet Edt 41006600 2 
x 41006700 2 @ 
: eTe Pe ae 2 
ELSE MATCHCWORDs"MUNITOR") GO JO CASE2 & SET/RESET MUNI TOR FILE41006900 . 
ELSE ERRCWORDs7>8)3 41007100 athe 
IF NC LSS 2 THEN ERRC*INCMPLT"* 798)3 41007300 a 
IF SCHEDULINE THEN 41007310 | @ 
BEG] ELA 9 0 Ac (7-5 a si 
TAMt=03 WRITEASTERISK#STRUED 41007330 
END ELSE 41007340 2 @ 
BEGIN 41007350 0 an 
LLDISKREAB 33 YUSERLOCs &% USERS/CANDE RECORD ADDRESS 410074006 3 
WANT $= VDISKREADS 41007500 4@ 
NG 3s 43 ; 41007600 RCT SSSR Se STATE) a 
ENO} 41007650 a 
END CASE 03 41007700 |@ 
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BEGIN ¥ CASE 1 + USERS/CANDE RECORD IN CORE 41007900 

WORKL11] ¢® QPTIONBITS ¥ PUT NEW SETTINGS IN RECORD 41008000 

DISKWRITECUSERLOG)s % REPLACE USERS/CANDE RECORD 41008100 

[AM $= 03 41008200 ml 
WRITEASTERISK t= TRUE; 41008300 | @) 
END CASE 13 41008400 
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BEGIN 41008800 
MONITORBIT t= FALSES 41008900 

IAM 32 03 41009000, 
CWRITEASTERISK t= TRUED 41009100 

GO TO EXIT 41009200 

ENDS 441009300 
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LLOISKREAD %= USERLOCS & USERS/CANDE RECURU ADDRESS 41009400 
WANT $= VDISKREADS 41009500 
DOING &= 33 41009600 es 
END CASE 23 41009700 
Meee erererncoveraerreerersesstesreneetersssrstosetrereeererseerer cee s4 1009800 
* N Z is - Rk FA iN rt ORD Nv 0 Re, 4 VO09900 seat facta 
IF WORKC12)]£0 THEN EKRCMMON,FIL"s722)3 &» NO FILE NAME LISTED 41010000 
ACBASE]) t= WORK(1¢2]5; & SAVE MUNITGR FILE NAME 41910100 
FINDCLERIAM( 3324127] > Os A4(BASEJPUSERCUDFesUSERCLDE)S % SEARCH Q O On a a eee ee ee 
TEMP t= 23 DOING t= 43 WAITFOR t= Iam; : 41010300 
END CASE 33 41010400 
BEGIN % CASE 4 = RESULTS OF ULRECTORY SEAKCH 41010600 
IF EVENTS£L1] LEG O THEN ERRCALBASE)>652)3 % NOT ON DISK 41010700 
MON ORB .= RUGS St a Alesse h Senn potas CoS et ee al a Se 
LITOUTCACBASEJsNOCRLF)S LITOUTC™ MONITR"SCRLF D3 44010900 
IAM ts 3 | 41011000 


ENDO CASE Ay nee’ 01 a A de arene ae eee ea 
Boca ne ere reset arenas ean eee set ersten stereeusetaservesvecesecevercesss 41041200 
END ALL CASES 41923300 
wc a a I ae a ws OA Oe ge 
END PROCEDURE SETIT3 ; 41923500 
JCI III II III IGG IOUS III IIIS OI IOI IO i in tant 42000000 
PR OUR Ae Ads RI AN nes ARRA Wile = Fen 5 street i etal aie ae foe es 
FGI III IIIT IIIS II IOI SISI IOI ISI II OID OIG III III i icine # 462000200 
BEGIN % PRINT CONTENTS OF SPECIFIED FILE ON TERMINALS 42000300 
REA sLINsPCoREKS»LINMAXpWORD*MAXSREGS 00 OD 
LABEL EXIT; 42000500 
CASE DOING OF 42000600 
BEGIN d Bt NO ces es eo be ee 
BEGIN & CASE 0 = SYNTAX ANALYSIS 42000800 
IF LL NEQ@ O THEN GOFRKCYSSFILE 213); 42000900 
SREG 32 BASE = aCcHaSE]3 420010090 a ee 
PC $= ACSREGI],C18491533 MAXSREG t= SREG + PCS 42001100 
ACBASE+3] &= 9993 % FLAG FOR LINE NUMBER INPUT 42901200 
FOR SREG ¢3 SREG+1 STEP 1 UNTIL MAXSREG DO 42001300 
BEGIN % PICK UP THE PARAMETERS 42001400 
WORDS =ACSREG)3 42001500 
IF WORDeli35)=0 THEN & LINE NUMBER GIVEN 42001600 ees 
BEGIN 42001700 
IF WORD GTR MAXLINES THEN GOCERRC"™NOT ON %,8)3 42001800 
IF LINECWORUsUCLOCI=0 THEN GOERRC(MNGT GN "s8)3 42001900 ae 
ACBASE+3] 2% WORD; 42002000 
END 42002100 


3) GTR O TREN &% FI 42002200 


BEGIN : 42002300 

IF CREKSt=REKS+1) GTR 2 THEN: GOERRCWORD,B)3 42002400 
ACBASE*REKS) := WORDe[624215 42002500 = 

“ENO 42002600 

ELSE IF WORD NEQ "/" THEN GUERRCOCWUKDSB)3 42002700 

END FOR STATEMENTS gs OO OO ce eg ote Se en oe ae ae 

IF REKS NEQ@ 2 THEN GOERRCYFIL NAM'98)3 42002900 

FINDCLLAITAMC 332 A187 Jo Oe ALBASEHLISALBASE +2] o "SITE "33 42003000 

TEMP ta 43 DBING t= 43 WAITFOR t= IAMS | 42003400 

END CASE 03 42003200 

Bip 075 00 4-9 Binihia 66 8's acu yle wna Maia mW 96 WAG Greg kM W005 444.068 ode VOR ie'e ON 6a ¥eHEVOS 300 
BEGIN &% CASE 1 = RESULTS OF OLRECTURKY SEARCH 4203400 ‘ . 

IF EVENTSC1] LSS 0 THEN % NOT ON DISK 42003500 

BEGIN es tt 42003600 

WORKCOJISACBASE+1)3 WORKE LISSA BASE +2)3.. 42003700 
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FOR [t=0s1e253 00 BLANKCWURKL1I)3 42003900 @ 
wxQ WORK O ‘ , DiC eS ir ose 
IAM 33 Of 42004100 : 
GO EXIT; 42004200 :@ 
3 
LLDISKREADSSEVENTS£(C2)],018815)3 %& READER ADDRESS 42004400 4 
WANT $= VDISKREAD3 42004500 |@ 
See DESL i ceeen Ue) 22 ee ee 42004600. 6 
END CASE 43 42004700 le 
Beonasscegcessavsesetestsresaessseecessrarscstussenscnrcterearer sees eh 2004800 : 
m MEADE K A aly ssdah eS Oeat a ote aia 
IF CSPOCNTRLIEWORKE7 141) GTR (It=wORK(8)x3) TREN SPOCNTRLY=]3 42005000 0 
IF he pe ae OR SPUCNTRL=0 TREN % NO RECORDS 42005100 |@ 
. AM =Cs C} \ 42005200  — st ee 
ACBASE#1 11503 % THERES SEGMENT POINTER : 42005300 4 
LLDISKREAD $# ACBASE]3 ® ADDRESS OF FIRST SEGMENT 42005400 @ 
WANT t= VOISKREADS 00005800 a5 
DUING t= 33 42005600 Ue 
END CASE 23 42005700 |®@ 
2 2 LJ LJ 02 ,42005800 | intake Aiba Sb Nahin ne ce ie Gate on Ae pe aS He 
BEGIN ¥ CASE 3 = READ DISKFILE 42005900 19 
ACBASE+1] $= ALBASE41) + 13 % INCREMENT SEGMENT COUNTER 42006000 29 @ 
REKSt= SPOGNTRLISSPOCNTRL*3 @ QO Th 3+SPOCNTR 42006100 21 
LIN t= 43 LINMAX Ss MAXLINES3 42006200 
IF ALBASE+3] LSS 999 THEN LINT=LINMAX$= AL BASE43]5 % NUMBER GIVEN 42006300 3 @ 
ee eee 2 A ; 42006400 ee 2a 
FOR risk STEP 1 UNTIL REKS CU. 42006500 2 
IF I=1 THEN TWXOUTCLIN*WORKC00} 67251) ELSE 42006600 e| @ 
= N ‘0 y ORK . 6700 sss 2 
IF J33 THEN TWXOQUTCLIN®WORKE20 97 201 )3 42006800 ii 
IF SPOCNTRL LEG 0 THEN % END OF FILE GR OI9K RON 42006900 1 @ 
AM%sC03 GO ; ND > QQ7000 30 
LLDI SKREAD t= ALBASE] + ACBASE*| 13 % NEXT SEGMENT ADDRESS 42007100 is 
WANT t= VOISKREADS 42007200 | @ 
END CASE 33 42007300 39 
END ALL CASES3 42007400 ‘ 
EXIT: 42007500 3 @ 
END PROCEOURE SSFILE3 _ 42007600 | Rt eae ae 36 
BN TOI TIE Hk AREER EO RHEE RRO RRR E RIA EEIOOO000 37 
PROCEQURE EQUATE(LCWeA)4 BOOLEAN LCWS ARRAY ACO]s 43000400 a4 @ 
BOG OIUIIIIOIIIIOIIUIGUIIIIIISIOIIIIIUIS ISI GG IUD Hadidini digo ies iontioien tin 3000200 Sian mene 39 
BEGIN 43000300 40 
REAL I» Ks WORD*UNITs TYPE® NAM* NAMI» NAM2? VEKBVs MAXSREG*EUVALS 43000400 «|@ 
BOOLEAN DSKsBKUP sECLTOG»FIL TOG sLIBTOG»CHECKTYPE sQUOTsQ1ird23 43000500 42 
BOOLEAN FORMTOGsNOLABEL*FASTOG»SLOWTOUGPELTOG) 43000510 4 
LABEL ERR» CHECKs EXITS 43000600 4@ 
DEFINE ENTRY © ACBASE+iJ#» THISESP = ALBASE rire 43000700 ae a 
: are ot a ee eee GMb GAs We VEG 56 Ble SOL 4 BA aiee Sok Une EA GO AGE OE cos Ga OBO 4g 
STREAM PROCEDURE FILEIDC ADRS» ARAY*MAX)3 VALUE ADASsMaAXS 43000900 +71 @] 
% 2 e 001000 eee 4 
BEGIN 43001100 49 
SItsADRSS DItSARAYS DItsDI413 | 43001200 0 @ 
MAX CIF @ALPHA THEN BEGIN OStsCHR} TA STALL Y+ NO 43001300 _ 51 
ELSE DSt=LIT" ")3 43001310 5 
AORSt=TALLYS SIssLcC ADRSS SLtaSl+73 DL r2ARAYS NSISCHRE 43001400 @ 
END STREAM PROCEDURE FILEID3 43001500, 6 
CASE DOING OF : 43001600 _ 5 
~ BEGIN a 43001700 | & 
BE GIA A AO awk : ch a raw 3001800 e 
e@ @ 
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FOR SREG $= SREG + 1 STEP 1 UNTIL MAXSREG NO 43007100 
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LABEL WAIT; 43001810 
IF NOT CONTINUEBIT THEN &% FIRST CALL ON [THE ROUTINE 43001900 
R OOZ000 
CONTINUEBIT t= TRUE} 43002100 
Seta ee a SAVE FIRST ESP pEeene ADDRESS 43002200 
a af MP 0 *) "4 0 00 pee Nt 
SREG t= BASE = ALBASED3 “MAXSREG t= SREG + ATSREGISIGNISI3 43002400 
END #@ IF FIRST CALL 43002500 
O27 4600 
BEGIN 43002700 
BASE t2 BASE + 33 & SHIFT uP TO SAVE STACK VALUES 43002800 
BASE t© CI&sBASE) =33 % RKE*ADUUST BASE FCR THIS PROCEDURE 43003000 
IF BOOLEANCACII.£C17:1)7) THEN %@ ERROR QURING SCAN 43003100 
WORD $3 ACLI42]73 MSGPTR t= 653 GO TO ERR 43003300 
END: 43003400 
F CTYPEtRACTI.£3¢3)) NE@ 2 THEN @ NOT A VERB NSOD 
BEGIN 43003600 
IF TYPE=0 OR TYPE=5 THEN GO WAITS & COMMENT OR NULL 43003700 
acces EYP Ne es ee ee ROO ROO eee ats 
BEGIN 43003900 
BASE&=13 SSMSGs BASEt=1] +33 LITGUTC"s "s1)3 GO WAIT; 3004000 
D Q 
WORDtSIF TYPE=e2 THEN ACI 4113 ELSE aAL1l+2]4 % NUMBER OR SPEC CRR 43004200 
MSGPTR %= 653 GO TO ERKs. 493004300 
_______ENDs % A_VE O440Q Bie Ae at 
IF CVERBVSSACT +4) -C40:87JI=2VEXECUTE THEN 43004500 
MATCHCVERBTABLELACT +13 609293) COs42}e"COMPILE") ELSE 43004510 
BEGIN : OO4600  ———s—sasisisists 
PARAM t= ACI41],Li16%i5)]+15 TEMP t= 43 43004700 
MOVECPARAM+1,WORNSSALILJ»ALCBASEJI3 & SKIFT LEFT FOR "EXECUTE" 43004800 
WA ts RBY3 AM $= gs CUN JEB Safa 5 43004900 
DOING &3 Q3 43005000 
GO TO EXIT3 43005100 
END} G27200 2 
IF VERBV NEG VEQUATE THEN #® WRUNG VERE 43005300 
BEGIN : 43005400 
WORD t= VERBTABLELACT+1I.0¥291j3 MSGPTK t= 653 43005500 ian WE. se oe 
GO TO ERRS$ 43005600 
END3 43905700 
[F_ENTRY#0 TH x ARTI! NEW “GM 005800 ast onk 
BEGIN 430065900 
Cee ee 43006000 
91t= AB NK TO NEXT SEGMEN 0 en 
DISKWATTEGs ED a0 THT EESe TT 43006200 
CLEARCLE03229)7 LCid} esa pan; 43006300 
HISESPis ESP13 ADDRESS UF NEXT SEGMEN O BE USEC 43006400 
END % IF ENTRY = Q 43006500 
ELSE DISKWAITC1sLe30-THISESP)» & RECOVER i eg VALUES 439006600 
SR t= J[+)3 MAxSRER 3s SREG+ALSREG] :j5 16700. Seine ce, 
ENOS &% IF NOT THE FIRST CALL 43006800 
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0 3 5 e mn = Th KY Th 3 Ry 


7 


BEGIN 43007500 
IF QUOT ANO CEQ@LTOG OW LIBIUG) THEN % ALLOW QUOTED STRINGS 43007600 
FILELD¢SCANPTRESREG=SBASEI» NORD)? D3 43907610 
MSGPTR te 663 43007615 
$= SCANPTR REG@"SH? 13 SREG t3 SRE ; H2Q 
WHILE SREG LSS MAXSREG AND ACSREG).LO842)] NEG "h OQ 43007625 
SREG t= SREG + 13 43007630 
K = SCANPTRISREG=SBASE];3 . 43007635 = 
IF ACSREG],(C6:42] NEG """ OR 439007640 
CK C338LS JRL C 3381S TKS +CK C3083 J°1.030°33) GTR 7 THEN 43007645 
10 TO ERR slit aaah ee ee Santi t Mai ee MO OO Pee et LY 
GO TO ALPH; 43007655 
END ELSE GO TO ERRs 43007660 
i) A OU 0 0766 iene a 9 
Racer n reese rer eere ees aeereeeeseneereresesetosatersseoareseseee see eh U0T664 
ELSE IF WORD,Ci:5J20 THEN & UNSIGNED NUMBER 43007666 
we IN a a nt es a A OO PRO BS es torn 
IF EUTOG THEN 430076790 
BEGIN 43007672 
END 43007676 
ELSE GO TO ERR 43007678 
ND % IF UN SNE D NUMBER OT sy oe aa ee ee 
Boar eceecateannenrenceracet eee tensveenrsAlHAs sonocenetevrvnsccsene sh 3007800 
ELSE IF WORD.«C333) GTR O THEN *% ALPHA STRING 43007900 
Benen = 0 il C0) A \ eeeeee ee PS 0:00 5 te ee oS 
ALPH: WORD $& (NAMS=WORD),£61242]3 430084300 
IF FILTOG TREN % LOOKING FOR INTERNAL NAME 43008200 
: \ BZ00R300 .. — 
FILELDCSCANPTRISREG@SBASE Js LCENTRY*#4),63)3 & INTERNAL NAME 43008400 
FILTOG t= FALSE; 43008500 
D % LTOG E Q08600 
ELSE IF EQLTOG THEN % "=" PRECEZDED THIS WORD 439008700 
BEGIN 43006800 
CENTRY+113*WORD 43006900 
NAM282NAMS LOCENTRYIJ3=03 *% ASSUME ENTRY 1S FID 43009000 
EQLTOG $= NUTCCHECKTYPES*TRUE DS 43009100 
QUO {EN eat ee OO Se, ah niet al te a he 
BEGIN Q2%2TRUES GQUOTS*FALSEs ENDS 430091320 
END & IF EQLTOG 439009200 
Sf id: HEN & "7" PRECEWDED THIS woRD 43009300 
BEGIN 43009400 
LCENTR¥JS=LCENTRY4¢1)43 NAML&SeNAMZ3 CLi=aq23 43009500 
NITRY¥+ BwO AMP S=NAMs Q B00 anes 
LIBTOG ts FALSES : 43009700 
IF QUOT THEN . . : 43009710 
tETRE ts SE 9 tee 
END %* IF LIBTQOG 43009800 
ELSE IF CHECKTYPE THEN & CHECK HARQWARE TYPE 43009900 
B h 010000 
MATCHCWORDs "BACKUP ") BKUPSsTRUE 43910100 
ELSE MATCHCWORD "BACK MY ; - 43010200 
BEGIN 43010300 
IF SREG LSS MAXSREG THEN 43010400 
IF ACSREG+1],03%?3)}22 THEN 43010500 
MATCH ACSRE G+ilel 62h2d, SUP ae 43010600 | - 
BEGIN . 43910700 
BKUPS*TRUES SREGHSSREGHLS oe 43010800 
“ENDS. sce | 43910900 
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END % JF “BacK UP" 43011000 
ELSE MATCHCWORDs"REMOTE ™) UNIT3=14 43011100 
ELSE MAT CWORDs "DISK ") Q 00 
BEGIN 43011300 ) 
K ts S$ 
END 43011600 


(IT 3 


HATCHCHORDSMSERTAL ) 43011700 
"Pp R } ee eaten Ve peal C2 
ELSE Gav crCHGn DS rUNCH ") UNIT te 0 43011900 iS 
ELSE MATCHCWORDs "CARD ") UNIT ta 0 43012000 
ELSE MATCKCWORD»"RANDOM "). UNIT #3 10 Q = a 
ELSE MATCHCWORDs"UPDATE ") UNIT $= 13 43012200 
ELSE MATCHCWORDs"PAPER ™) UNIT t= 7 43012300 
ELSE MATCHCWORD» "SPU m) t= {1 Q Sere ae mak 
ELSE MATCHCWORD? "FAST ") 43042410 
IF SLOWTOG THEN GU ERR ELSE FASTOGS=TRUE 43012420 As 
SEM W "SLOW " | Oi2430,—“(‘sésCOS 
IF FASTOG THEN GO ERK ELSE SLOWTUG!=sTRUE 43042440 
ELSE MATCHCWORDs "EU ") EUTOGIaTRUE 43012450 
BEGIN 43012600 
IF UNIT NEQ 7 THEN % PAPER TAPE 43912700 
| i ead tes oat ; 
BKUB t= FALSES 43012900 
END & IF TAPE | 43013000 
ELSE aveenone SuGcnpE ces RaLLae aahUE 43013004 
ELSE MATCHCHORDs °COPY "y 43013010 
4 30 6 Lele enced ut Me Te ets tee ee 
— IF UNITS U THEN UNIT#=¢2 ELSE & PUNCH TO PUD 43013020 
IF UNIT#2\THEN UNIT#=O ELSE % TAPE To pet 43013025 
F_UN R_UNIT=y2 TI PRINT T1o pap Ss ug0gang0—“‘i—s—s~s~s—~—S 
S MAXSREG THEN 43013035 


IF CWORDSSACSREG+1)) C115] s0 THEN 43013040 
WIR ty 6 hi eens a at ate 43013045 
BEGIN 43013050 
LOENTKY4+3).C15%8] *= wORD*REALCWORD NEG@ 023 43013055 
SREG?=SREG+1s 43013060 
END 43013065 
ELSE GO ERRs 43013070 
ND | : Q 0 
ELSE GO ERR: 43013100 
END % IF CHECKTYPE 43013200 
SE GO ERR 43013300 — 
END & IF ALPHA STRING 23 43013400 
ELSE , 43913500 
“Bene ‘ e * : g oon % 6 SPE PA be x 4 a 43013600 Pere Leen es eee ee aeataty 
BEGIN 43013700 
IF WORD = "s" THEN EQLTOG $* NOT ELTOG 43013800 
ELSE IF WORD="/" THEN LIBTUG 3= TRU 43013900 = = ee 
ELSE IF wORDe""" THEN QUOT? *TRUE 43013910 
ELSE GO ERRs 43014000 
ENDS IF SWECIAL. CHARACTER oS ay _ 43014400 
END WHILE STATEMENTS 43014200 


Lares ae er ee ee ee eee ee 0 SCANecssevccecsese see 4 3UL4300 


IF NOT CHECKTYPE THEN % INCOMPLETE REQUEST 43014400 


BEGIN : 43014500 
WORD 38" TNCMPLT"3 WsGPTR tr 663 GO ERRI | 43014600 
NOF es We ee 43014700 
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: 2 0 0 . é * ~ a a n 5 <a S KS . 3 ~ 3 : 


IF NOLABEL THEN 
pa =IF UNIT= 2 THEN ° bEME lf DIN ig THEN 8 ELSE UNITS 


WAIT: 


CHECK? 


LrENTRY#3), C42t6) teUNIT3 LEENTRY#12]4=03 : 43014800 ' 
IF DSKESCUNITS40 OR UNIT#412 OR UNIT#S13) THEN % DISK 43014900 :/@ 
2 i Oi5000 : 

IF LOENTRYJ=@ THEN % MUST HAVE BOTH NAMES FOR DISK 43015100 4 
BEGIN 43015200 |@ 
; Bi iininattn AR SO ri Gy Nee Se To he te 6 
LEENTRY+12eNAM2t=USERCODE: 43015400 
ENDS : 43015500 : /@ 
NOT Of THEN & NOT QUOTED STRING ee ON erate rae 
BEGIN 43015520 ) 
IF CWORDSSLEQENTRY])-C4e%6) NEG " ™ THEN 43015600 0 
NORDal 686) NEG O THEN S030 75700 3 oe he 
BEGIN 43015800 _ 
MSGPTR ts 42; GO TU ERR; 43015900 |@ 
See NBs ot ae i Se ee re sesples tana 
IF FINDAWGRDCNAML»RESWROTABLEL1J]*NUMOFRESWRDS) NEQ@ O THEN 43016200 
BEGIN MSGPTR := 29% GO TL ERR} ENGS 43016300 /@ 
; Ba OS sed Gace a eS ec ae Ei ee 9 ee ea 
IF EUVAL GEQ O THEN LEENTRYF+12}el1BtS)IFEUVAL41 ELSE 43016320 ‘9 
IF (FASTOG OR SLOWTOG) THEN 43016330 4 @ 
+ H = + 1 1 6 eee ee nr DN ee a 
ENDS % IF DISK 43016400 : 
DISKWAITCO+Ls30sTHISESP)# ¥ WRITE OLT THIS SEGMENT 43040500 hd 
N R = QO. . Gg > wa Ech ie Meter es ten aie es ig a Pe Ce 24) 
BEGIN 43016700 2 
ENTERESPCLL» THISESP, AL*})s &% ENTER SEGMENT ACORESS IN TABLE 43016800 | @ 
k e 2 
BEGIN 43017000 2a 
WORDS="NO ROCM"3} MSGPTR $= 043 GO ERRS 43017100 -4@ 
ND} 0479 0 Olas cr ne oe 4 
THISESP t= ESPy3 ESP1 t= GETESPDISKS EQUATEO t= TRUES 43017300 1@ 
ENDs % IF STARTING NEG SEGMENT 43017400 i 
ENTRY t= IF ENTRY3O TH FLSE O03 4% EQUATIONS PER SEGMEN O17500 3 
IF DSK THEN MATCHCNAM2, ve 42JesUSERCODE) ELSE * OLTSIDE FILE 43917600 ‘ 
BEGIN 43017700 3@ 
FIND(LLGIAM(C 338A 127 Je Oo NAMI sNAM2eLSERCUDE )3 43017800 = = af 
ACBASE]3=NAM13 43017900 a7 
DOING t= 13 WAITFOR t= [Ams GO TOVEXITS 43018000 34@ 
END} 43048400 3g 
43018200 a0 
GO TO CHECKS 43018500 «|@ 
END$ % CASE 0 43018600 a 4g 
| ee sea eae ee ee ae eee & Sib Sao 6 a's 60 #60 oi ok b 056054 sles boa og e AICS OTOR y 
BEGIN & CASE 1 © RESULTS OF DIRECTORY: SEARCH 43018800 4@ 
IF EVENTSC1] LSS 0 THEN % FILE NOT IN DIRECTORY 43018900 oes. bi 
BEGIN 43019000 6 
WORDt=ACBASEJ; MSGPTRK t= 673 al TO ERR: 43019100 |W 
ND3 43919200 eo ees 
43019250 49 
DOING!=03 WAITFORISVINPUTS | 43019300 | @ 
If SCHEOULINE THEN REQUESTIPCLL) ELSE 43019310 om (5 
BEGIN 43019320 “ ‘5 
1t203 Ks=REALCTHINGSLINK)S 43019330 a8 
WHILE I LSS REALCTHINGSTODO) DU 43019340 
BEGIN 43019350 ap 
lintels ig . A5039 100 , 
IF TOBEDONELKs16),C1Bt7ISVINPUT THEN. 43019370 
] 


43014710 
43014720 @ 
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e 
BEGIN 43019380 
eS Py TOBEDONELKS16].C1827)2SVEQUATES 43019390 
AM %= WANT t= WAITFUK $2 Q3 43019400. = 
’ GO TO EXIT; 43019410 
@ ENDS 43019420 fe 
3 __KisTOBEDONECKs0), [C3:6)s 009K 
4 ENDS 43019440 
. oa END3 43019450 
6 O ' X Se ee TO ete eat at 
, END3 % CASE 1 493049470 
ee: END ALL CASES} 63019500 
9 RR _ eS aa ee Sw EO OBO ie cee dehtaaly Grass elmo EAS 
i ERRSW %= WORD} 43019700 
er IF EQUATED TREN ENTERESPC@LLs *024b%])3 & GIVE BACK ESP UISK 43019800 
12] 
ae Rn ae ee eI I O00 ee . 
l EQUATED &= FALSES CONTINUEBIT t* FALSE3 . . 43020000 
e” EXITs ve 43020100 
BP ee a a ca ae I) BS ore ee 
he BI III II II III GIGI UII III II TOI IOI I IOI OIG to inioiee 44000000 
@ | PROCEDURE STATUSCHECK(LCWsA)s BOOLEAN LOWS AKRAY ALQJs 44000100 
le 2 eae ie te ie ee ae ee te ee te dee ae ae eo a i a a de ee he aie ae gee de te te eae eee He te eae de ee tee MAO OO ZOO ee 
hel BEGIN 44000300 
eo; REAL CPUsIOsSEQ3 44000400 
AB NOTRUNNTA ’ Oa Sir ee 
F TRE CE ECA CRE CEE PEO ERECTOR ee eee ee Oe eee eee ee ee ee ee eee re ere Ferrer 6) 
6» STREAM PROCEDURE MESSAGEC WORK eCPUsIUsCMPsR27)3 VALUE CPUrlO»CMPeR273 44000700 
p % 0 tc RCN eee ee ee 
P BEGIN LOCAL SV1sSv23 44000900 
@» DI#sWORKS OSt=BLIT" "F STtHWURKS OSSe9WDSs % BLANK ARKAY 44001000 
: D1tswOR DS234 "CPue"s SviieDls SItety Pus. DOI00 
2 2COS8=2CHR$ DSt=6LIT” HRS» "5 44001200 
@ DSt=2CHRS DSt=sOLIT” MIN» "3 44001300 
B . =2CHR t) 3s APA s=ChHRs UV 26 T™ SEC " Ee NOT ee ee ee 
: DItSSVi3 DSteLSFILL$ SV2I=RD1s Slt=SV25 H1tsSV13 44001500 
To 26CIF SC="%" THEN JUMP OUT ELSE DS3=CHR)5 44001600 
B SJts_a OF DSts4_Iit”™ [oO=x"3 Svisspyg ps t=O17 4; O0O1700 
i CMPC(CDS2S10LIT" AT SEQ v "3 Svles0ls Slt=Luc Re7s 44001600 
@ | DSt=B8DEC3 OSt=LIT"2"3 DLs=SV1s OSt=7F ILLS SV2tzp]3 44001900 
‘ SIt=SV23 DitsSvis BCIF SCH"S" THEN JUMP GUT ELSE DS$=sCHR))3 44002000 made 
p OSss25LIT" "3 44002100 
@> END STREAM PROCEDURE MESSAGES 44002200 
: CASE DOING OF 44002300  ——— 
40 BEGIN 44002400 
@ |: BEGIN % CASE 0 = INITIAL ChECK 44002500 
2 IF RUNNING OR MPILING THEN 002600 Re eee tat 
IF RUN1 NEG O- AND RUN@ NE@ 0° THEN ‘ 44002700 
BEGIN ; 44002800 
ALBASE S372 eREALCCOMPILING)3 002900 
é IF RUNNING THEN 44003000 
i“ BEGIN. 44003100 
ALBASFIS=SRUN1).(626)]=0 THEN & REWUIRES SHIFTING 003200 ae 
BEGIN 44003300 
ACBASEJ8S1F RUNI,Ci2#O)]=2"4" THEN PILENAME ELSE 44003400 
* MRRUNEL6E1 23 36)3. Q03500 
END3 44003600 
ALBASE+1]3=MATCHCRUNGs"CANDE ™) USERCODE ELSE RUN23 Rabat 
ALBASE+2)] :=USERCODES Ene 
END & IF RUNNING = Bee, TCCRETL 


ELSE. Ba ae 44004000 


> N : . : : gee ee es &UU 0) 
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3 2 0 * 4 . E : 7m x a > s. x 


ACBASEJV22RUN2$ % CUMPILER NAME 44V04200 


ALBASE+1J1=1F RUNL.C6t12]="15" THEN FILENAME ELSE RUNG 44004300 e 
S™USERCDH b NN -OMP A 44004400... 
END} X IF COWPILING 44004500 
STAATUSCLLGIAM(33 14117 ]¢ALBASE J ACBASE41]sACBASE42])5 44004600 1@ 
: M 0 PY Sse San oS lth a eee ee ae Se te oes Sd 3 
TEMP “ie 43 44004800 . 
DOING t= 13 44004900 |@ 
at RI Ba an te et ete et ee OOO On he ce xp 6 
ENDS 44005100 ? 
NOTRUNNING!: | , 44005200 : 1@ 
WORKLOJIs"*NO JOAS"s BLANK(CWORKLO OM 10) oa oc 10) 6 [een eee ee ene eD , 
WORKL1J8="RUNNING"$ GLANK(NORKL] J)3 44005400 
THXOUT (LE WORKEO) + 164193 44005500 |@ 
NQUIRYE=FAL SE | _4uooseo0 2 
IAM ts O3 44005700 a 
ENDS % CASE 0 | 44005800 |@ 
. mote ee tats aasteessosneencenssssossssssesns ope, 4hN05900 Spi uiadla ala estuaries pla Ee 
BEGIN % CASE 1 = RESULTS OF INQUIRY 44006000 iad 
IF EVENTSC1) LSS 0 THEN uO TU NOTRUNNINGS 44006100 1@ 
CPUS=TIMECONVCEVENTSE 1 ]+FALSE)2 Tce MUO OOO ep Se Dt oP ott hgh to eee, Soe a ete Besse 
TOt%sIF EVENTSE2ISREALC(NOT FALSE) THEN O ELSE 44006300 19 
TIMECONVCEVENTS(21 FALSE) ! 44006400 od @ 
BOOLFANCALBA % COMP SAU OOOO oe i i he el 24 
IF PSEqusEVENTorah 7 REAL CNOT FALSE) THEN ALBASE+3)]3=03 44006600 i 
MESSAGE(WORK» CPUs LO, AL BASE +3] >9EQ)3 44006700 2 @ 
e j 24) 
INQUIRY FALSE 44006900 25 
IAM tz 03 44007000 2 @ 
D CA ee: : 007300 aes 2 
END ALL CASES3 44007200 28 
EXIT! 44007 300 ey @ 
END PROCEDURE STATUSCHECKs OQ i 
Lee KERER KAS 50000000 3 
PROCEDURE SSMSGs. | 50000400 21 @ 
BEGIN ae Re ace he Fare a ees Fe OOOO Oi oon os oct, i Sena Seteitta are P ees 83 
DEFINE ACALISLINECLL»ALI#; 50000300 
STREAM PROCEDURE FRMCFeTsuCsLL)s VALUE UCoLL$ 50000400 a1 @ 
t= LOC UCB 50000600 37 
t= TS r 50000700 @ 
50000800 7 29 
50000900 ‘i 
os t= 2 LIT "Mn; 50001000 «|@ 
SI t= LOC LL3 | | 50001100 a2 
DS t= 2 DECS 3 50001200 ‘ 
DS t2 SLIT ">< I? 50001300 4@ 
SI t= F3 50001400 4 
DS!s15 WDS; oe CHR 50001500 46 
END FRM oe 50001600 | @) 
PRUCEDURE SP : | T. __ ‘ 
REAL T3 50001800 ‘9 
BEGIN : 50001900 | @ 
AB LT3 | , 5000200 51 
STREAM PROCEDURE BZYC(WPUCALL)S VALUE UC#LL3 50002100 5 
BEGIN 50002200 | @ 
DY t= W3 50002300 pe EA 
St t= LOC UC} | : 50002400 55 
UPS; 7 : | 50002500 | @ 
uD$ is. IRS oe : im 90002600 
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e: 


oo ~ oO NM F&F WH = 


14) 
n5) 
16] 
7 
18 


p2 
23) 


A 7 7 eA A ee 7 
oS & a 3 


oN = 5 


i: 


DS 22 LIT "¢%3 50002700 
S¥ t= LOC LL 50002800 
0 = H 0 y GH 6 eee neee ee aer ne 
ar DS t* 6 LIT ") BUSY"S 50003000 
END BZY3 50003100 
D N OR A AMS ¢ HE WC WORK O00 OO five 3 ate hatte Aes, 
ELSE 50003300 
BEGIN 50003400 
RUNNIN THEN MA neo" CAND ",RUNZ 0 OOo ita ek ia tee ee 
BEGIN 50003600 
BZYCWORKE20)sUSERCODE>LL)S © 50003700 
WXOUT CTs WORKS 2G *¥. stl ee  SOOORR OO. 
GO XIT 5090U3900 
END3 50004000 
EVENTSCO) 8= O&LLE 2574 QO? BIAVSSMSULLHs41i713 _$0004s100 
MOVE C4eWORDS*PWORKCLOI>EVENTSC1id 3 50004200 
REMEMBERTHISCLOW)3 50004300 
ENDS —~§o000s400 
XIT1 50004500 
END SPOUT3 50004600 


LABEL: EPR ED TB ea ap eg ae te en SOOO FO an ein crc ce, 


: BOULEAN GOTONE; 50004800 
A REAL TeWORDS 50004900 
: eae ee Oe A a = 40005000. =—eseseseseseses—seae 
FRMCLeWURKsUSERCOCE*LL)3 50005100 
T t= LL 50005200 
F_ CWORD? #ACBASE+2] ).( 323] QO THEN po HOLSK Sip ic 1 0) Caan eee aan tae en a ee 
BEGIN 50005400 
IF LL &3 WORD GTR MAXLINES “THEN GU ERK; 50005500 
IF LOGGEDON TH POU CHe,AL*) eT) ELSE GO ERRS 50005600 eats 
GO EXIT 530005700 
ENDS 50005800 
= See ee On eee 
MATCHCWORD,C6%42)6 "ALL ") 50006000 
BEGIN, 50006100 
FOR LL t= 1 STEP 4 UNTIL MAXLINES DU 50006200 are 
IF USERCOQDE NEQ 0 THEN: 50006300 
BEGIN 50006400 
SPOUTCLCWsAL*] sT)3 0006500 
GOTONE %= TRUES 50006600 
END; 50006700 
NOT GOTONE THEN GO ERR? GO EXIT 0006800 _ 
ENDS 50006900 
FOR LL t= 0 STEP 4 UNTIL MAXLINES O06 50007000 . 
OGGEDO H 50007100 es 
MATCHCWORD.CO84@), LINECLL» UCLOC)) 50007200 
BEGIN SPOUTCLCWrALe]e T)3 50007300 
OTON a TR SEG OVO TRO 08 onus e i ee 
END3 50007500 
IF GOTONE THEN GO EXIT; 50007600 
RR OL SH OW dy 2 silo Re eee eee 
LL t= T3 50007600 
LETOUTCPNOT ON wf oT 50007900 
EXIT! 50008100 
LL t= T3 50908200 
END M 0008300 Seen eee 
PUT ETTTA TELE LTTE EE TTT LE TTL TTT 519000000 
PROCEDURE PDIT CLOWs Ad} Sea LOW: see ALOIS — 51000100 
RAZA RARER E ERE CE EE, SAREE TER EEE IE $4 000260 
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y 4 % ° F 


fon SERSESSEES 


BS BSS EF 


CE 


BEGIN 


Bee GETIT» EXIT; 


REAL STREAN PROCEDURE FORMCTsF)3 
BEGIN 
= r is | PS 
IF SC LSS "0" THEN 


BEGIN 


END ELSE 
IF SC EQL "0" THEN % OBJECTFILE. 


IF SC LSS "QO" THEN ¥ WOT WRKFILE 
BEGIN Osis abl” M3 OSt=60CnRs TALLYss 14 ENDS 
NO ” OB 
FORMtaTALLY} 
END OF FORM} 
ASE DC ING OF 
BEGIN 
BEGIN %& gree erry 
=M r 
terse $= Q3 % MUSED FOR ADDK SECOND HALF, 
ACBASE4+2) t= 03 4% USED FOR ADUR LINK, 
_CSREG ts 433% B 
TEMP f= 113 4’ ALLOW & WOS GUFFER. 
END CASE Q3 


NGts]3s 


Aaa 2 
ACBASE] teC LEAL BASEI “13 
IF 130 THEN GO EXITS 
SAT Sttss : 
WANT tevDISKREADS 
DOING3=23 
S e 

BEGIN % CASE 2. (FIRST HALF IN). 

Arete ENN Gk FFs % ADOR LINK 


Ba sACBASE+11+17% ADDR COND HA 
- aetry 
END CASE 23 
B N & CA ANY HALF JN 
GETIT! , 
FOR [tac STEP 3 UNTIL 27? po 
see +115 T 
BEGIN 
SREG2 =FCRMCALCSREGJ»sWORK(CLI)+SREG; 
REG=BA R10 TREN 
BEGIN %& PRINT THE LINE. 
SREG?SBASE+ 33 


MOVE CBs WORDS A REGJet[O})3 
TWXOUTCLLALL 012645193 
END PRINTING3S 
N R3 
IF LLOISKREADSSALBASE+1) GTR 1000 THEN 
BEGIN ® GET SECOND HALF BLOCK. 
ALBASE +14] 220;3 


DOING3=33 

WANTS2VDISKREAD3 
END ELS 

IF LLOISKREADSSALBASE+2) GTR. 1000 THEN 
BEGIN 


ALBASE#213 303 


54000300 
51000400 : e 
5 a Ne ect ee A ee 
31000600 
51000700 1@ 
_ 51000800 eee 3 
51000900 ‘ 
51000950 |@ 
eet ee EO OL OOO oe oe es 6 
51901010 : 
51001020 1@ 
51001030. 8 
51001040 10 
54001050 /@ 
_§400j060, 2 
51001090 "3 
51001100 l@ 
5001200 
51901300 “e 
51001400 "7 
54001500 os ieee 19 
51001600 19 
51001700 | 24 @ 
51001800, 21 
51001900 ; 
51002000 I @ 
_§1002100 i ee 24 
51002200 2 
51002300 2 @ 
yo24u00. _ 2 
51002500 ‘le 
51002600 ; 
51902800 31 
51002900 31 @ 
ee SHOU ODO pec ann cereal ge ee eS 3 
51003100 ‘e 
51003200 e 
ee 5009 906 it oaridele teen tidelod eiept ence ee Sa 28 
51003400 27 
51003500 4 @ 
: 
51003700 ‘ 
51003800 «|@ 
03900 a2 
51004000 ‘ 
51004100 @ 
Bees os SL OORR00 : a5 
51004300 : 
51004400 hdl 
51004500 _ r 
51004600 ‘9 
51004700 | @ 
51004800 > ds 
51004900 ; 
51005000 “|@ 
51005400, 5 
51005200 a 
51005300 sd @ 
51005400 
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oon mom TF F&F WH — 


ACBASEF+1 VS SLLOISKREADS | 51005500 
DOING$ 223 51005600 
ste oe at a WNT A a ee ee BOOS OO cn 
END ELSE DOINGte 1; ar : 51005800 
ENO ere 35 51905900 
B NRAPUP 519006000 
EXIT “TF SREG= BASE, GTR 3 THEN 51906100 
BEGIN 51906200 
TiSSREG"BASE~33 SREGi=BaSE+33 OG B00 ao ee 
MOVECTeW@ROS*ACSREGJoL001);3 51906400 
TWXOUTCLLeL CO]+ CIxB)» CRLF DS §1906500 
gepeseie te MEN D CUE CE VR a gt ee OOO G00 5c ont 
IAM33Q3 51906700 
END CASE 43 51906800 
ENO ALL CASES; ie ee catered 
END OF PDITs §1007000 
BROCERUGE FOLVINIC a RL ec eee 
PROCEDURE COPYIT(LCWseA)3 BOOLEAN LCWS ARRAY AL*)} 52000100 cae 
FI III ITO IOI ISIC IOI III III IOII I ide ato 52000200 
52000300 
‘ aw ANDE VERE QOO040 oS paietnsetlg, Whnwbigl nieces 
“APPENDS COPY» DELETE>- ERGE» PUNCH» RESEGs RMERGES 52000500 
REAL INPCOUNT, QUTCOUNT, PREVNUMBER, WORD, UNIT» UNITNUMBER, 52000600 
FILNAMis FIYLNAM2s FriNAM3s SAVEWURD, NPARAMSs VvERAS 2S OOOO 7 OO ies eet 
LABEL EXITs»ERRORS 52000800 
BOOLEAN TOGWORDsWINDUP3 52000900 
DEF IN — 52001000 ket ene 
REVERSE TOG ® TOGWORD.,COLt1Ll] #» RESEQVERB = TOGWORD.CO231 J #» 52001100 
RESEQPARAM = TOGWORD, COat Lie» HAVEMINUS = TOGWORD, CO4t 1 1#» 52001200 
ARDCOP 8 TAGWOR ah NOTWORK = TOGwORD,(06 VOI300 
HAVEINPUTFILE = TOGWCRD, [O7tile» Lis TOG = TOGWORD,CO8E1 I]t» 52001400 
SAVE TOG = TAGWORD.[09! 1J#>, HAVERESEQRANGE = TOGWORD.C1I0%1)#> 52901500 
HAV NCR M N = BGWORD H te KA NEWBASE = TOGWwORe £ : O14600 oo 
HAVEQUTPUTFILE s TOGWORD. (13%1}%, LASTPARAM = TOGWORD,£14%13#3 §2001700 
CASE DOING OF , 52001800 
: ik ; f PUO0T9O0O 
BEGIN % CASE QO 52002000 
LABEL RESTARTS 52002010 
PARAM =_(A REGgs @"ACBASE ; “ARAM QUIN St eee ONS VO eee, Bost ein 
VERB 33 IF ACBASEJ=£0 “THEN. "COPY is ELSE, 52002200 
VER OS PELELAL REC a2) 91d6 COra215 % GET- VERB NAME FROM TABLE 52002300 
Ree HE R O wk i 52.00 O00 opie 
IF NPARAMS=0 OR PaRnnast AND ALSREG+1}. CO*42N SAL " THEN 52002500 
BEGIN & SCRATCH THE WURKF ILE 52002600 
DOIN =_08 = 03 DOB i= ; ore 00 
SOQURCEFILE ts MAKERN(™ 1S"eLL 5 & 49" FILE NAME 52002800 
MAKEFILECLL E13 3304117 Je dr SOURCEFILE*USERCODEsFILETYPEs0)5 §2002900 
AM 23% : R ® A 25 al H (J a x O3000 
ENOs 2% IF DELETING THE WORKFILE §29003100 
eee ") £ PAPER TAPE 52003200 
OO0 ) 
“TF SCHEDULINE. THEN GOERRO"PUNCH 540), 52003400 
IF _ DEMTSESCONSAL Beet hipaa TREN GUERR(*PUNCH "25623 52003500 
Mi A ‘) O0 HO O 
, 52003700 
52003800 
ARDCOPY $= TRUE3 852003900 a 
END} % IF PUNCH VERB 2 52004000 
If er iiddeghe THEN x ‘TYPE DATA FILE ot 520041400 
EGIN : ; es 004200 
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IF TPCOUNT. GTR O “THEN ® WORK FILE NEEDS UPDATING 


MATCHCVERBe "MERGE ") GUERRC'MERGE "557)5- : 52004300 
MATCH(VERBs"RMERGE ") GUERRCMRMERGE "5573 52004400 @ 
ND z NA ; OSs ips EES 


52004600 le 
2 


BEGIN 52004700 
: ; Was ’ 2004800 3 
GO TO EXITS 52004900 Je 
END3 52005000 ; 
MA RRe"RMERGE ) 2 al Ae nk a ee a; 6), 0 9 ee 6 
BEGIN 52005200 le 
REVERSETOG t= TRYUES VERB $= "MERGE "3 52005300 
CLEARCWORK(CO),269)4 % ZERU OUT THE "WORK" ARRAY 52005500 ‘9 
er MATCH(VERBs "RESEG ") % SET OFF AULT OPTIONS 52005600 \@ 
BIC OS FOO occ aS rere orn eee 12 
RESEQVERB tz TRUE: 52005800 3 
@ |. WORK(S] ¢= ©43 % DEFAULT LONER BOUND FOR RESEG 52005900 | @ 
WORK(6) t= 1000000003. % DEFAULT UPPER BUUND FOR RE SEO 2006000 sat, «ba ciete eet hn ee oee 19 
WORK(7) t= WORK(H) $= 100, % DEFAULT BASE AND INCKs FOR RESEQ.52006100 
® ENDS 52006200 7% 
WORKESJ) t= MAKEFNC™7S"stL 3 % OEFGULT OUTPUT FILE NAME ee A OOOO iv) anaconda ES aaatee etee ous se est Od en 
FILNAML %= WORK(10) t= SOURCEFILE? & DEFAULT SOURCE FILE NAME 52006400 ar) 
@: FILNAM2 t= WORKC2] t= USERCODES | 52006500 20 
NP COLA z 0 ' QUIN 2 203 PR NUMBER $s wi 3 goa ONO rest eter ela ed a Ree a oa ay 
P RESTARTS 52006610 a 
er At Ce ses ssscesccssorssersssesseesesccecscsecetsecreesseenscecen ss 52006700 3@ 
4 AK PCUUN ARAMS A E DO 4 a ay ARAM ? OH & ee ante Ae oa ne re REESE ate er, RR AE ee Se 24 
is Becca ren err e ror eena near et eeieeonteevenrareretennnvsesevensncser 2006900 e@ 
@ -: BEGIN . 52007000 ey 
i — hy 2007010 sss 
ps IF WINDUP THEN x FINISHING UP LAST PARAMETER 52007020 1@ 
Or BEGIN 52007030 ‘ 
WYNDUPS SF AL SE? O. N; H 20070 Nic tM AE Ms oF ta eR Ae a 30 
ENDS 52007050 . 1@ 
rd] SREG t= SREG + 13 % ADVANCE WSTACK" POINTER 52007100 Be 
NPCOUNT t= [NPC + 13 % COUNT THIS FARAMETER 52007200 
é WORD t= ACSRFGJs % TRANSFER PARAMETER 52007300 
@ Reetesetrerecceseeenasseceeteaasareseestenessassereessenven cess S20C7HO) 2 @ 
: WORD Bs ; HEN 2 PARAMETER I5 A "R STRING Q Oe 6 Mn oS ns 5 
Reigate asia iawa vrei eh ce ad ea Goa Od kde ln se SOTO 3 
@ » BEGIN 52007700 @ 
WORDe L435) t= 03 ¥& ZERU OUT "CODE" PURTION 52007800 — 3s 
, MATCHCWORDs "END ") £ CONVERT TO LEUFMARK 52007900 40 
e BEGIN 52008000 «|@ 
wORD %= 1000000003 52008400 2 
. GO TO UNSIGNED; oa ; 52906200 : 
@ ENDS. 52008300 | 4@ 
ee MATCHCWORDe PRINTER") UNIT 3 ELSE 52008400 | mV : As 
MATCHCWORDs "PUNCH ") UNIT ¢ 52008500 V a © 
; " " 5 ( ; mae 47 
@ 7 pec esnue TAPE ) UNI eeeee a vere (creo, " RA uw) UML] sos Ll : J 
IF UNIT GTR O THEN % HARD COPY KEQUESTED 52008800 Arch | word, "Rida % Vary oe ip 4g 
i BEGIN , | 52008900 Lh, oh ie 
MATCHCVERBs"COPY ° ) ELSE GO ERROR} 52009000 _ wy) ra 51 
5 IF HARCCUPY THEN GO ERRORS % REUUNDANT | 52009100 5 
@F IF NST HAVEMINUS THEN GO ERRORS &% MISSING "TUM 52009200 9 @ 
| @ F HAVEQUTPUTFILE THEN GG ERRORS 52009300 
P { UNITNUMBER t= UNIT. & SAVE UNIT NUMBER 52009400 “e 
Or ft HARDCOPY t= TRUER lane | | 52009500 
a fp HAVEMINUS $3 FALSE | ne 52069600 | 5 
e eo @ 
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@ @ 
END % IF UNIT GIR O 520U9700 
@ ELSE MATCH(WORKUs"RESEG ") 52009800 e 
5 ) 900 
‘| QJ IF RESEQVERB OR RESEWHARAM THEN GO ERRORS 52010000 
@: . RESEQPARAM t= TRUES §2010100 
3 WORKES) t= 43 & DEFAULT LOWER BOUND FOR RESEQ Q10200 
4 WORKL6) $= 1600000005 % DEFAULT LPPER BOUND FOR RESEQ 52010300 
@| WORK(7] $= WORK(8] $5 1004 & DEFAULT BASE ANU INCR, 52010400 
6 PREVA RER s= =]3 iP AK a A 52010500 =. 
Me a IF SAVETUG THEN & NUMBER STORED IN SAVEWORD 52010600 
@ : BEGIN 52010700 
IF QUICOUNT t= OUTCOUNTSs| GTR 29 THEN = 20;0B800.C—( sti ai i (‘*;s 
bas a GOERR("TOGMANY™s 3023 52010900 
@ WORKEUUTCOUNT) t= SAVENORUS 52011000 
E » ENDS & TF SAVETOG; 52011200 
Qo“ END % IF "RESEQ" 52011300 
ge i oe ee ee Oe, aod ELSE MAT OM CWO Dl TE a BOUT AO es 
bie BEGIN 52011500 
@ i IF HAVEMINUS THEN GO ERRORS * REDUNDANT 52011600 
ee threes 2 SHAVE MON ST pe BUN FOO i 
9 —_ END % TF "To" 52011800 
@ . ELSE MATCHCWORDs"LIBRARY") §2011900 
' te Fee ee sc aah Scr a a a a See es OP On men ge ee 
im IF LI@TOG THEN GO ERRORS % REDUNDANT 52012100 
@ » IF NOT HAVEINPUTFILE THEN GOERRCWURD,55)3 % NO FIRST NAME52012200 
pe res sa eo a CG cee UR 3 ew em a 8 ain tl 1105 Ok: 10) oe ee nes 
P . END % IF "LIBRARY" 52012400 
@ ELSE IF LIBTOG THEN * SHOULD BE SECUND NAME OF FILE §2012500 
27 ‘ BE N § £00 ee ee 
al MATCH(VERB»s "DELETE ") GUERR(WORG239)3 % CUTSICE FILE 52012700 
@ F: MATCHCVERB,"PESEQ ") gu STS OH URa rag) % OUTSIDE FILE 52012800 
iS ae: a P RR an < mpueos 
‘ FILNAM2 ts WORD3 %& SAVE SECOND NAME OF FILE 52013000 
i LIBTOG 38 FALSES. 52013100 
P ND 3 ¢ 0 Sates te 
‘ ELSE IF PAVE TNPUTFILE THEN % MIGHT EE GLTPUT FILE 52013300 
@ | BEGIN 52013400 
p Be "COPY " iRi 0.0 Soatink 
p IF Not HAVEMINUS THEN GO ERROR ELSE HAVEMINUSS=FALSES 52013600 
OF IF HARDCOPY THEN GO ERRORS 52013700 
BS HAVED pf THEN GO ERROR B00 fae —_ 
IF (FILNAM3!2=WORKU)«L4286) NEG ™ ™ THEN GOERRCWORD?®G2)3 PuRECET 
@ ave uteUTF LEE tz es 52014000 
2 tO NURK re) LR : Q ore ae _ 
os | END % IF HAVEINPUTFILE 52014200 
@ ' ELSE : | 52014300 
BEGIN ¥ SHOULD BE. INPUT FILE NAME _ §$2014400 = 
; IF WAVEMINUS THEN GO ERRORS 52014500 
eH IF COMPAR(VERBs"OELETE ") OR COMPAR(VERBs"RESEW ") THEN 52014510 
BEGIN 52014520, = 
: IF COMPARCWORDeFILENAME) THEN GOERRC"WRKFILE"s62)3 52014600 
@ |: NOTWORKFILE te TRUES 52914700 
FILNAM{ t= WORD; 52014810 
@} HAVEINPUTFILE t= TRUES 52014900 
j ND3 % JF NAME 01500 ae 
P END % IF PARAMETER 1$/A "STRING". | 52015100 
@ |: ELSE se a ae ee 52015200 
: OO 
@ 
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@ @ \e 
IF WORD»of1%2]=1 THEN &@ PARAMETER Id A "SPECIAL" CHARACTER 52015400 
e RCP ORT OW Big ONS OO 68d AN ON ON AW OWES E GS CERES OWN OR ow whee D201 D500 e 
BEGIN > Es 7 0 a eee ee 
1 IF WORD,C42:6)8"/" THEN 52015700 : 
@): BEGIN 7 - 52015800 |@ 
3 PRTG THEN GO ERRORS LiningtsTRUES = = 85ND 3 
: END 52016000 . 4 
@): ELSE IF WOKD.C428O]="=" THEN 52016100 |@ 
. ane ] a Sa a te te OUT OS OO 8 ts eee en ees 8 7 
i IF HAVEMINUS THEN GO ERRORS HAVEMINUSISTRUES §2016300 ? 
@: END 52016400 — |3|@ 
i _______.._ELSF.GO FRROR; % FUNNY CHARACTER 529016500 7 
My END % IF A SPECIAL CHARACTER 52016600 le 
@ E ELSE 52016700 i 
y 52076800 ae 
IF WORD.£125)=0. THEN % AN UNSTGNED NUMBER 52016900 ar 
@ |: Racer eee meee one moma ea rPenedneeseceherecnbaneessetonepecersgSe017000 : 4 
5 PR OO 179 OO i neon, eit 5 
: UNSIGNED$ 5201720¢ be 
oe” IF HAVEMINUS THEN & SHOULD BE WEGATIVE NUMBER 52017300 |@ 
aL site Aa le gts Pt Nt Set ise Poe etree ee co eee Se = Pee ee lO 
: WORD $= “WORDS HAVEMINUS @3 FALSES GO TO NEGATIVES 52037500 1@ 
@ }: ENDS 52017600 a0 
: —_____IF_SAVETOG THEN % ALREADY HAVE « NUMBER STORED IN "SAVFWORDY52017700 : a 
ia BEGIN 52017800 - 
@r IF RESEQPARAM THEN 52017900 | @ 
P eek arse “GLi Sener = 07 © Pt «8 6 1 ane eo Ee OC Oe ence Cy 
pe IF HAVERESEQRANGE THEN GORRROCWURD,5S9)3 52018100 fs 
@r IF LASTPARAM THEN WORKE7]:=sSAVEWORO 52018200 ed] @ 
P 25 2 
Pe ENO *@ IF RESCQPARAM 52018400 i 
Or ELSE IF RESEQVE@B THEN % BASL OR RANGE Lobe 52018500 of @ 
3 Q 30 
IF HAVERESEQRANGE AND HAVENEWBASE THEN GOERRCWORDs 599352018700 31 
e@ IF HAVERESEQRANGE OR LASTPARAM THEN 52018800 | @ 
EGIN OO se pee oe ee = ee 39 
é wORKE7) &= SAVEWORUS 52019000 é 
oo] HAVENEWBASE $= TRUEB 52019400 3 @ 
gg cz ie tbc Us ae Nan Sere ee et 6 
; ELSE 52019300 37 
@» “BEGIN 52019400 1@ 
39 er ay RK : 39 
HAVERESEQRANGE #= TRUL; 52019600 40 
& ENDS 52019700 «|@ 
N “QVER 01980 eetat ones a2 
ELSE 52019900 ‘ 
@ BEGIN | 52020000 4@ 
0 ou ts QUTCOUNT + 43 52020100 rere 49 
IF CUTCOUNT STR 29 THEN GUERRC™TOUMANY"s 30)3 52020200 46 
@| WORKCOUTCOUNT] $= SAVEWORDS 52020300 |W 
i ND 020400 48 
ENDS % IF SAVETOG 52020500 . 49 
@r SAVEWORD 3= WORDS # SAVE THIS NUMBER 52020600 | @ 
_ SAVETOG t= TRUE3 52020700 61 
é ENO % IF PARAMETER IS AN UNSIGNED NUMBER 52020800 6 
@: ELSE 52020900 | «| @ 
P hee eee eeeteoante @eFoee Fae aMosneF® ee oetoareF eset Hone esaeeene eseoe es 22921000) S4 
z IF WORD.C1i:2]=2 THEN & PaRaAMETER IS A NEGATIVE NUMBER §2021100 | 5 
@ Fe Merve reer amet hae ee rear eset oer t ere e weet asessccesersasnesernesedeuelZnd : so @ 
g 8 oa 20 0d 5 
® 


@ aac eae a ~~ *s e 
‘ NEGATIVES 52021400 
rd] IF NOT SAVETOG THEN GUERRCWGROs11)3 & MISSING LOWER BOUND 52021500 8 
JTF PREVNUMBER GEQ SAVE WUND THE GOrRANCSaAVEWORDs,SB)g dN LA00. 
IF SAVEWORD GEQ@ ARSCWORD THEN GOERRCWORD*58)3 52021700 
@ IF RESEQVERB OR RESE@PARAM THEW 52021800 
S208 POO Oi ccs a ee be 
IF HAVERESEGRANGE THEN GU ERROR; 52022000 
@ WORKES5] &= SAVEWCRDs & LUWER BOUND FGR RESEQ 52022100 
.= 3 t ; fe SE . x ‘ } 7 we 222 sina abs: iy eee eats areca a eae a ae ee ee ii — 
SAVETOG t= FALSE3 52022300 
WORKL6] *= ABSC WORD) *% UPPER BOUND FOR RESEQ 52022400 
mete HAVER ESE OR ANGE st 0 Re a a a BORD Gosh oc ei eee 
END % IF RESEQVERB Un RESEGFARAM 52022600 
ELSE 52022700 
E U; 7 fees 
IF QUTCOUNT?=OUTCOUNT+1 GTR 28 THEN GOERRC™TOOMANY's30)s 52022900 
WORKECUTCOUNT) t= SAVEWORD; 52023000 
: Nan RATE | ise ; SS a a OPS POO ee oe ts, ate 
i PREVNUMBER s= ABSCWORKCOUTCUUNTS=UUTCOUNT+1)£=WORD)3S 52023200 
eo” ENDS & IF NUT A RESEW PARAMETER 52023300 
8 ora ieae Ste RAMETER Is LUMOE f SAUTE 77210 -6c Be 01s eee 
: 52023500 
td] i Rem r ar ern eran e reser erate Ht areeeeenneetererereseceereeneenrsess ps IEVEIO00 
, a WORD PLE 21S THEN &@ PARAMETER JTS ~ "o" NUMBER = UUUUUUULULULhLhU§U9083700..ULUOUUUUU 
P Deere eer eee e eee ern ade ent ee ePaee tesa ae reteseseeresesereesere soe eIeVe23B00 
@» BEGIN 52023900 
é P er ke) 1 SOO" R RESE@ E : wats OU CEO OOo eaten aed eeu he 
ee IF HAVEINCREMENT THEN GU ERRORS % REDUNDANT . 52024100 
:@ ps IF SAVETOG THEN 2 HAVE AN UNSIGNED AUMBER IN "SAVEWORD" eae 
3 P| OO eee eae eee oe 
SP IF RE SEQPARAN ANDO RFAVERESEQRANGE THEN GOERRUSAVEWORD» SO) s8e024006 
50 Ps WORKL7) %= SAVEAORDs & WEW BASE 52024500 
P ee SAVETOG $2 FALSES OH BOQ eet 
i HAVENEWBASE 33 TRUES 52024700 
@: END} % IF SAVETOG : 52024800 
‘ _ WORK ES 4 i ae 
pa HAVEINCREMENT %= TRUES 52025000 
ro END3 % IF PARAMETER IS A "+" NUMBER 52025100 
Be he ee e ee ee e@eean oe Ce et ee ee @oe C) oe? a [a] } a 6 52025200 


P END WHILE STATEMENTS © NO MORE PARAMETERS | 32925300 


Ramee mmm meh eee ear eee Henn eat ee eheeat rear ata eeeneeeesesseseneeee sans ed 2UL94N0 


IF SAVETOG THEN IF. NOT LASTPARAM. THEN % NUMBER LEFT IN SAVEWORD §2925500 
BEGIN LASTPARAMS=WINDUPIS=ThKUES GOL TU RESTARTS ENDS 52025600 
IF RESEQVERB OR RESEQPARAM THEN [F WORKE5SJ®0 THEN WORK(5J35@1; 52025610 
F_ HARDCOPY TH % (uTPUL TO FERIPHERIA NI 52025700 -- es 
BEGIN 52025800 
WORKE9O)] 2 0 & UND TNUMBERLO F4216) & 52025900 
NA : 026000 
END « IF HARDCUPY C™PUNCH™ VERB ASSUMES REMOTE UUTPUT) 52026100 
ELSE IF NOTWORKFILE THEN % WORKING w1TH EaTERNAL FILE 52026200 
WORKL G3 = a! a - Th ! bs z SE NAM zZ J26300 ape A Rat nil oR oh Minh ow et es ye Se hh 
ELSE 52026400 
BEGIN % USING THE WORKFILE 52026500 
NAME 30... THEN NE RRC YAW hdd ; : §2026400 Soe ektles 
IF NOT HAVEINPUTFILE THEN *# CHECK VERBS REQUIRING FILES 52026700 
BEGIN 52026800 
MAT CHC VERB "MERGE OO") GUERRCVERR* 62 UCC 8 BH IND 
MATCHC VERB» "APPEND ") GUERRC VERB» 603 52027000 
ENDS 3 32027100 


a RR AND F - fsb THEN GuerRAC RE 0 " Oy 00 


2 
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a ee Bs ne se creas ake me @ 
IF RESEQVERB AWD FILETYPESL THEN & RESE® BASIC FILE 52027210 
IF HAVENEWBASE gece HAVERESEURANGL TheEW GUERRO™BASIC 2,15); §$2027220) e 
LOOT cee ee Se 
1 WORKL3) #3 FILNAMI3 52027400 
2 WORKI 4). t= FILNAM23 32027500 |@ 
3 z a ra * tal 7 e ¥ eras 3 
’ IF RESEQVERB THEN 52027700 , @ 
5 IF HAVERESEQRANGE AND HAVENEWGASE THEA % CALL MERGE» NUT RESEG 520¢7800 : 
6 Pa a a a ee te wee See QO ZT OO Ooty ce. ee a ‘ 
is WORKC1132=WORK(513 4 DELETLON RANGE 52028000 1@ 
(8 WORK(21]:8I1F WORKCS]=°1 THEN O ELSE WwORKE573 52028010 . 
8 ———-WORKI22) ts =WORK(i2) a8 WuRKfedp OO 8 
ba VERB t= "MERGE "ss WORKE101 t= FILNWAMIL, - §2028200 e@ 
er OUTCOUNT t= 33 52028300 y 
be ——-REVERSETOG 3s TRueg le BANO bai 
ENDS 52028500 "3 
@ |: HOG ET Lab ech Las Ta TEN )¥QUTCOUNT (2 PaeteJEN CF ILET YeEeeI Svar IIa 52028600 @ 
6 RRCREVERSETOG OT HAVE INPU' 52028700, isis 18 
6 g ReONEISESTISEBTGT: cre 52028710 
er RUN1 t= VERB$ RUN2 t= "CANDE "3 ERKSW t= USERCODES TEMP 3s 43 52028800 @ 
8 ITOUTC"WAIT, "“SNOCRLF)$ ALXASE+3)2=REALCTOGNORD DE 52028900) | 18 
9 IF HAVEINPUTFILE OR HAVEQUTPUIFILE THEN & SEARCH nIRECTORY 52029000 | 19 
@» BEGIN 52029100 od @ 
: IF HAVEINPUTFILE THEW 52029205 a a ae nn Be te te ah 
p2 BEGIN 52429300 2 
@ ACBASE] t= 23 ALBASE41) t= FILWaMt 52029400 2 @ 
ee area rae ere? 45 tf ’ M N ww 52009500 se 6 gS oe eng et 24 
END; 52029600 1@ 
lt IF HAVEQUTPUTFILE THEN 52029700 7 
‘ ACBASE ] t= 142xREAL (HAVE INPUTFILE)3 52029900 10 
@- ACBASE+2] 25 FILNAM33 52030000 23 
po a re IO I as gu a ee ee tat wg eal or ns 0 
p DOING $= 13 52030200 e 
@: WAITFOR t= IAMS 52030300 p2 
ND & NPLT/OUTPUT (S SPECIF erecta te lees POSOC OQ: icc. ny acsdaopaatetav cones abate Se uals So pace! 3 
: ELSE 52030500 ! 
@> BEGIN % REFERS TO WORK FILE 52030600 3@ 
P F_RESEQ RB AND PES) THEN § (Lisz"RESEQ "3 ioe one Oe OO TOO oe a aka aft sath ANT SE a Sa . 
i % VOID 52030800 2 
@ % VOID . 52030900 | 4@ 
% VOID : 52031000 erect, 32 
WANT $= VDISPATCH; E 52031100 ; e 
@ ACBASE]=RUNL3 52031200 at 
DOING t= 23 52031300 | cr 
ENDS 52031400 é 
@ | EOUMSG t= NOT CONCISE: 52031500 4@ 
| WRITEASTERISK t= CONCISES 52031600 45 
DISKWRITECESP1)3 52031700 r 
@ | END % CASE 0 . 52031800 | @) 
he ‘ 52U91900 r 
BEGIN % CASE 1 52932000 7 = e 
@r LABEL DUMMYS . 52032010 : 
WORD = RO ANCA F IGG . pee tare 
P IF ACBASE) NE@ 1 THEN & LivPUT Pick SEARCH 52032200 le 
@r BEGIN 52032300 5 
e -Q@ 0 THE OLRRCACBASE¢ 1 J] o¢2)3 : aes 0 Geta pA 
a3 EVENTS(21,(36:6] = 8 THEN 52032500 58 
@ Fs BEGIN 52032600 | @ 
MA RUNIe"RESEQ ") GUERRCACBASF 413057) 032706 
e@ @ °® 


@ ®@ 
MATCHCRUNI» "MERGE ") GUEKRCALSASE +1 4957); 52032800 
@ ENDS 52032900 ® 
2 ‘ 34:46) Att mae axe x NA AS EQ ‘ one Leute 
' BEGIN 52033010 
@ | IF HAVERESE@RANGE AND HAVENEWBASE THEN GOERRC"BASIC %15)3 52033020 
: __RUNISE"RESEQR M3 008 ORRINGO OO —_ 
4 END} 52033040 
@| IF ACBASE]=3 THEN % WAITFOR OUTPUT FILE SEARCH 52033100 
6 mn : 3 
7 FINDCLL&IAML 3324127)202ALBASE+2]>USERCUDEsUSERCODE)3 § 2033300 
@ |: ACBASE] t= 13 WAITFOR t* IAMS GU TO EXITS 52033400 
8 ND: 9 WA - OR 52033500 eee 
ig END % IF ACBASE) NEQ 1 52033600 
oe) ELSE 52033700 
pe BEGIN % CHECKING OUTPUT FILE 3800 
h IF EVENTSC1) GTR O THEN GOERRCACBASE+2)3)3 52033900 
eo" ENOS % IF ACBASE] = 13 52034000 
fs RRSW ts RCOOES Th 0 ¢ 
is WANT 3&8 VOISPATCH3 52034200 
@” ACBASE] $= RUNLS 52034300 
be BA IN a sp a i pd cece cree 
9 END CASE 13 52034500 
@,r Demme me maere rates ane eteosenesen dened eee Pee cere ntorneesoeseerennenees eo ee FeUS4600 
: _BEGIN &% case 2 = ADJUST AFTER CANOE Jop EUd cael ces asl tte EO Ot a coat ee tr 
ea LABEL DUMMY3 52034710 
r ee IF EVENTSC(C1J=1 THEN & Etiv UK 52034800 
S P ks ae UN ne ee PG RE ret oe ce oe te 
ae: VERBt=ACBASE]3 TOGWORD t= HOOLEAN(CALBASE+3))3 52034820 
20 ps IF NOT ¢ pARDEOPY OR NOTWORKFILE) THEN % WORK FILE ALTERATION 52034830 
3 27) 7 ‘ RPO) fh, oe oe 
gf IF FILETYFE= 8 THEN & TYPE DATA FILE 52034850 
2:07 MATCH(VERBs "APPEND ") LASTRECURD t= 52034860 
ii A R ORO + CUMMD 2Q. eras Ae nee ere 
MATCHCVERB»"COPY 7) LASTRECURD $=COMMONCELLel2182723 52034880 
@ SOURCEFILE?*MAKEFNC"IS"sLL)3 GOODOBUtsF ALSE3 NOSAVES=SFALSES 52034890 
NO Ox foi ft Nakamichi nr oe SM 
ENDS % IF EQy UK 52035000 
e ITAM8=03 IF BREAKORWRU THEN LINECLEAR(CLCWeAl*¥) 3 52035100 
D3 % f : ek ore bas 
END ALL CASES# 52035300 
@: GO TO EXITS | 52035400 
RRO DE RR(WORDs»ADS : 0.0 Gesu 
EXIT: 52035600 
@ END PRUCEDURE COPYIT; 52035700 
ee ke oe kt ek kee aK ek ke KO KAREN AH NK KK KK ate ke ok eK kh mk ew we ee ZS 300000 
PROCEDURE SEQCLCW+A)3 BOOLEAN LCW3 ARRAY ALOIS} 53000100 
6 SII III IOI IIIS IGG OIG RIO iro iodo i iter ing 53000200 
: A A, : OOO 200 facasalas) 
REAL STREAM PROCEDURE QUTSUPRCINPUT»OUTPUTIs VALUE INPUTS 53000400 
@ BEGIN 53000450 
OIs=LOC INPUTS BpSt=7F 3 ate eee toh ns spe SU OO OU A Lk So ee ee ee i es ys 
3 Sr2sLOC INPUTS DIssQUTPUT3 53000550 
@ | BCIF SC=" “ THEN SISSSI+1 ELSE 53000600 
BEGIN OStsCHRs TALLYSSTALLY4+1) END)3 53000700 _ = 
; OUTSUPRI=TALLY3 53000800 
Or END STREAM PROCEDURE OUTSUPR3 53000900 
i PRO blr. Q) UM ¢ 2 WORT 3 ALUE “QWURDG REA SF QWORDS §3001000 Jeu 
BS} : COMMUNICATE (914) 53001100 
@ f iets PCe Te WORDs SEQNO» INCRs SEGQOUTS 53001200 
x Ao. RR EX beep See : Rae ee ; . 6] one 
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ERRSwW t= "SEQ >) MOGPTR t= 63 SEQGNOSFINCREB"13 §30014C0 
IF FILENAME = 0 THEN GUERRCMNG FILE" 1)3 53001500 ® 
8 FR ( MSE NM 2 SAG YOVS20 
IF FILETYPE=6 THEN GOERRC"DATA "e957 )3 53001540 
IF PC tx. ACSREGESBASE*ALBASE]).6FF GEQ 3 THEN 53001600 _|@ 
PTR t= th} fh £ RE “NO OL7O0O 3 
WHILE I "LSS Pc pd 53001800 le 
BEGIN 53001900 . 
boii eh SE t= + 13 _ 53002000 8 
IF CWORD t= ALINCCSREGI]).£2:4] 2 U0 THEN 53002100 7 
SEQNC t= WORDeC21?27] 53002200 |@ 
i Bi oe PSE OPS WORDS OLE ee OOD P00 9 
INCR ?= wURD,lelie7]) 53002400 hes 
ELSE GO ERK3 53002500 1@ 
NO WHI 3 53002600 2 
IF SE@NC # 0 OR INCR GIR SOQ000 OR INCR = 0 THEN GO ERR; 53002700 ke 
IF INCR NEQ =4 THEN 53002800 hd 
REMENT INCR3 SFQLAS 53002900 _ _. Te aaa et ae 1 
IF SEQNC NEQ «1 THEN SEQOUT t= SESNO 53003000 is 
ELSE SEQUUT t= SEMLAST + INCREMENTS 5 3003100 /@ 
SFEQLA t= SEQO - CRE & LOK CIC bi Dia 1 © beeen een ea oe oe a ee ae en be 
IF SCHEDULINE THEN 53003200 1@ 
BEGIN %*SENB CUT SEQ NUMBER FOR SCHEDULE LINES 53003250 a 
P 3 SONV CSE Qn ORK LO 0099590. eos ton as ee oe i cs 
TWXOUTCLL®WORKLOds Lp hUCRLE D3 53003350 = 
END 53003400 3@ 
= m 24 
OUTPUTNUMBERS(LCW»AL*)) 53003420 @ 
ELSE SEG@COM(CLL»SEQOUTSINCREMENT(2229219))3 53003500 by 
anaes s O01 deh Se ee we 2 
WRITEASTERISK t= FALSES 5 3003700 10 
SEQMODE Is TRUE; LAM = 03 GO EKITS 53003800 23 
TPR: R : ; BO O23 te Mur ches’, i 
EXITSEND SEQ VERB} 53004000 le 
tte a I OIE OO TOK ORI IO IIR ROO Rk tik 54000000 2 
PRO OURE BYE We A BOOLEA w3 ARRAY ALOIS Q00100 i 
Fo te I TI I II I IO IR III III IOI III IG te ae 54000200 
BEGIN 54000300 @ 
A K r) ’ e Seams 36 
REAL T3 54000500 4@ 
IF ACBASE] LSS 100 THEN 54000550 3 
ine Bi 
IF USERCOVE=[AM!=0 THEN GO EXITS 54000600 | ‘e 
IF FILENAME WEQ O THEN 54000610 1 
F N Q 0 UR FILENAME NEQ SOURCEF HEN 54000620 ba 
IF NOT NOSAVE THEN 54000630 : e 
BEGIN 54000640 : 
EE TTR Ce Ty ae en ee ee ee A i 
END} 54000660 ae 
IF QUICKBYE THEN 54000670 10 
1 ¢) ; oe pert 48 
LITOUTC™BYE = "e1)4 GO SKIPS 54000680 a 
END} : 54000690 1@ 
WORK(G] $3 "ON FOR "3 BLANKCWORKLO))3 54000700 51 
TIMEUSEDCWORKL1)>TIMECUNVCTIMECL) “LOGONTIME »FALSE) )3 54000800 5 
IF NOT SCHEOULINE THEN 54000890 sj @ 
TWXOUTCLL »WURKLO]» 33eCRLF)3 54000900 
WORKLO) 3* "CRE USE"S BLANKCWORK(LO])3 54001000 65 
TIMEUSEDCWORKE 1)» CHARGE S=TIMECONVCPTIMEsFALSE))3 54001050 1@ 
Twxo -sWORKLO]s 33 CRLF DS 54001100 5 
 ] 
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WORKCO] 8% "EXECUTES BLANKCWORKLO)); 54001150 
TIMEUSEDCWORKELIJ>TIMECONVCETIMES FALSE) )3 54001200 
Sis Pataca VOUT OE WORT Oa UT 
WORKCO) $= "10 TIME"F BLANKCWORK(O))3 54001260 
TIMEUSEDCWORKEC I] > TIMECONVOTOTOTsFALSE) D3 54001270 
- a WORKL@) $3 "QFF AT "S BLANKCWORK(CO))5 54001300s—“‘i‘i‘;;‘;:S 
TIMEQFOAYCWORKCIJsTIMECONV(TIMEC1I* TRUE) DS 54001400 
ase te eT I a a pag ee ts ep ee ees Oe 
TWXOUTCLL2WORKELOls 1 aeCRLF DS : 54001500 
WORK(CO}] $8 "GOODBYES BLANKCWORK(OI); 54001600 
WORKE 1) $3 USFRCODES BLANK (WORKEC 1) )3 §auggi7oo 
TWXOUTCLLYWORKCOls16eCRLE 3 54001800 
WORKCQOJS=VATES 54001810 
Q WLA20 
TWXOUTCLL®WORKCO]+8e1193 540018630 
SKIP: WRITEASTERISKISFALSES WORKLOJ] 32" %e "3 54901900 
_ CO AB ASE) LSS 50 THEN NOT HELLO |©™©™©™€™€™C™UCUCUUUU OOP OOO 
BEGIN 54002050 
TWXOUTCLEL» WwORSCOJs3e"1)% & DISCONNECT THE LINE 54002100 
_. 7 NE THEN GO 2 _* SCNCTSA002110 
ENDs 54002120 
ENDS 7 §4002150 
pu ae ORG Ee Ce CONV CP Mee BRS eg a le, a OO 7G oe ee 
TESLLAL3C 3324 87405 54002200 
REMOVEFILECTs ee ee ee eee 54002300 
germ BON 0 P76 6 « ener net eee 
REMOVEFILE(T» SOURCEFILER"P"( 1atqzi cp USERCODE )3. 54002500 
Ee alld ah desl eae Og SNe rata 54002600 
-8" Oi 23 £6 00 0 a ee ee 
snUseER Le ens t= O13 54002800 
REMOVEFILE (Ts SOURCEFILER"P™[12ta2: PIP USER CODED? 54002900 
ab SD. f\ a SCOANE \ Q eee OHO ane eer 
FILESOK te BCFILENAME?%0)35 TPCOUNT t= 03 §4003000 
EXIT! END BYES §4003100 
Lew ew x Pax. * Xe te 9 ARceReceeSEREALERORLEE SE 2 te ke ek kk i fro f QOOOH ESRC Re TEE 
PRUCEDURE MAKENEWFILECA)3 ARRAY ACOJs 55001000 
FoI II III IORI IO OIG TI IOI I IDG IO tok ete 550020006 
B Q ore a lec EE 
LABEL NEXTp»ERRsEXIT; 55004000 
REAL TseMAXSREG? 55005000 
106000 sg. 
DEFINE 55007000 
NAMEWORD = ACBASE J]4>» & FILE NAME 55006000 
TYPEWORD = ACBASL4+1 Je» &’ FILE TYPE QU9000 ss 
SEARCHCOUNT = ACBASE+2] #e ® NUMBER OF DIRECTORY SEARCHES §5010000 
SAVESIZE = 38} %® NUMBER: OF WORDS USED ABOVE 55011000 
: 012000 sss 
DEFINE ERRORCERROR1) = 55013000 
BEGIN 55014006 
MSGPTRSSERRORIS GU TU ERKSs 550159000 | fe R Ne Sh te 
END&3 §5016000 
: 55017000 
STREAM PROCEDURE MSGCAREAsTUG)s VALUE TUGs 55918000 
BEGIN 55019000 
LABEL XT3 55020000 
TSARE A; 21000 Fe ce ie Sa 
TOGCOStsi5_LitT* DUPLICATE NAME"3 JUMP OUT TO XT23 yt 55022000 
DStei SLIT" CREATED “J hee 55023000 
xT! END STREAM PROCEQURE MSG ee rk i 55024000 
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CASE DOING OF 55026000 e 
BEGIN Perera ere ¢ Se an eS ee eee 
BEGIN % CASE O © SYNTAX CHECK 55028000 
IF FILENAME NE@ 0 THEN 55029000 1@ 
PCOUNT NEQ o UR F AME. WEO RCE HE 455030000... 3 
IF NOT NOSAVE THEN 55031000 le 
BEGIN 55032000 
NOSAV RUE» GGOERR en A OT AO Fiesta ton tee esa Se 8 
END} 55034000 1e 
MAXSREG 1s ACSREG?=BASE~ oh BSE (18315) + SKEGS 55035000 , 
ACK Wi OR Oe ha te er a oe ete 2 
FOR "SREGtSSREG+1 STEP 1 UNTIL remy oye) 55037000 1@ 
BEGIN 550380006 iy 
NEO HEN & RABE STRING BOO i be 
BEGIN 55040000 le 
IF NAMEWORD=C THEN NAMEWORUSZALSREG] ELSE 55041006 ba 
: G : MO BOO sean cele ae : 
ERROR(8)3 55043000 a 
END % IF ALPHABETIC STKING 55044000 ie 
foe ESE ATE AOSREG JS Ee SETS Yall Vc oR ip ete nee eee eee i 
BEGIN 55046000 1@ 
IF TYPEWORD=S0O ANG SREG LSS MAXSREG THEN 55047000 a 
; ; : : —5SO04BO00 oo = 
BEGIN 55049000 1@ 
IF CTIsFINDALETTER(CACSREGJ]sTYPE ;ABLEC 4J],NUMOF TYPES) £0 THEN 55050000 a 
pa ee EGS Ne a nes eee oe 8, ee a ee cp a et heat hd Se ae 24 
TYPEWORD?= Té1L1:472145 % MARK ALREADY CHECKED 55052000 1@ 
GO TO NEXT; 55053000 bi 
G10 W Go Meare eke ri eemniy Rcd Pt SOR eRP Ear eS 7 
ENDS &® IF ALPHABETIC STKING 55055000 1@ 
ERROR(8)3 55056000 oe 
ND Ma Sad DT OOO se 6 oo wre ue a, es ere ee ereareree ae 
ELSE ERROR(8)3 * NO OTHER INPUTS ALLOWED 55058000 1@ 
NEXT? 55059000 Be 
aN a cel nt UB ONO cir cn, eon en, eed s 
55061000 34 
IF NAMEWORDS0 THEN GUERRC"NO NAME" » 63 % NO FILE NAME GIVEN 55062000 3 @ 
3 R H GOERR ME WO 42)3 §5063000 Gi 
IF F INDAWORD CNANEWCRD? RESWROTABLEL1)»NUMUFRESWRDS) NE@ © THEN 55064000 37 
GOERR(NAMEWORD»29)3 55065000 4® 
' YPFEFWORN = 0 YPEWORD 887 ELSE & DFF AULT IS SFOQUEN 55066000 tts ae 
BEGIN . 55067000 a9 
IF NOT BOOLEANCTYPEWURD.L1%4J) THEN & NOT PREVIGUSLY LOCATED 55068000 «|@ 
55069000 4g 
IF CT ERP INDAWORD (TYPEWO@O» TYPETAGLE C1]*NUMGF TYPES) 80 THEN 55070000 4 
-GOERRCTYPEWORD? 20)3 55071000 4@ 
END3 55072000 _—- 49 
TYPEWORD 23 ABS(T)3 55073000 6 
IF CHECKBITC TYPEWORD@1-RESTRICTEDLANGLAGES) THEN 55073100 | 
GUERRCTYPETABLELTYPEWOKD)] -LO%42]» 49)3 55073200) 49 
ENDS % CHECKING FILE TYPE 55074000 49 
| 55075000 | @ 
NAMEWORD .(145)%=03 595076000 a) 
GENFILINECNAMEWORD, TYPETABLELTYPEWORC I)» 55077000 5 
FINOCLL&IAMLC 3324137) +0,NAMEWCRE sLSERCOUDE »USERCULE D3 * SRC 55078000 «| @ 
FIND CLES TAME 3324137] 20sNAMEWURD .L63 36) ,USERCODEsLSERCODE)3 &% OBY 95079000 54 
FILESOK t* FALSES 55060000 65 
TEMP t= SAVESIZES 55081000 co @ 
DOTN * 4 082000 5 
@ @ 
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WAITFOR t= JAM$ 55063000 
& ENDS % CASE 0 55084000 @ 
f Stee eneeesnespeepeas I OVA5O009 
1 BEGIN % CASE 1 = RESULTS OF DIRECTORY SEARCH 55066000 
@ IF EVENTSC1) GE@ O THEN NAMEWORD.0C184)]8e13 % ERROR FLAG 55087000 
3 ARCHCOLA & ARCHCOUN La HEN 088000... 
: BEGIN 55049000 
@|: MSGCWORKsNAMEWORDeC1412)s % BUILD MESSAGE FUR USER 55040000 
i XO WORK ¢ 0.0 92 Ae es iia tomes 
IF BOOLEANCNAMEWORD, Cit1]) THEN % ERRGR 55092000 
rd] : BEGIN 55043000 
AR “rw: pO SBR OG NOOO 8 
no MSGPTR t= 4; 55095000 
eo" WRITEASTERISK $= TRUES 55096000 
12) a 
; IF NOT NOSTOP TWEN SCHEDERRORS & TERMINATE SCHEDULE 55098000 
@' GO TO EXITS 55099000 
15) 
he FILENAME 8= NAMEWURD. (6842); 55101000 
@ d FILETYPE := TYPEWOURDS 55102000 
1 = e 
9 SOURCEFILE t= MAKEFNC"LS"sLL)3 55104000 
@ MAKEFILECLLQ13C33%4127]51+SOURCEFILE*USERCUDE>FILETYPEs"2)3 55105000 
hhc ere oe SGD 0 Dk ae a st GR TOR OOD ale cs boo eh acl Ohi cic oe 
pe NOSAVE %3 FALSE} 55107000 
@ » OBVECTFILE t= 03 55108000 
‘ ts ta H FERS 109 OO Ge. sn he a et hao 
P INCREMENT S@ 1003 -  §§110000 
@ es IAM ts VSETUPFILES3 55111000 
; o]8 tz OF. OOO 
pe END % IF ALL SEARCHES DONE 55113000 
@ ELSE 55114000 
BO BEGIN 551135000 = = 
WAITFOR t= IAMS ; 55116000 
@ | GO TO ExITs 55117000 
‘ ENDS . SS VS00 Gis tS 
B END CASE 13 55119000 
@ | END ALL CASES3 55120000 
pe GO x 3 } 2100 oie a et Aa pnts 
p 55122000 
@ . ERR! GOERRCACSREGI 96); 55123000 
pS : ‘O00 
EXITs 55125000 
ee END PROCEDURE MAKENEWFILES 55126000 
Pe do We ee ae ee oe ae eee ei II IOI OI III UII IOI IO IOI Uitte IIIa tt ie te 456000000 eens Miata aan Dyes a a ee 
"3 PROCEDURE LISTIT (CLOWsAI2 BUOLEAN {CWS ARRAY. ALO]; 56000100 
@ 4 Ber rennet een nee 4 ora eer anand tee ereeseuieauer cisesetessenseesneuocg09 
LABEL PRNT» CASES» CASE4s ERK» EXITS 56000400 
roy REAL PREVWs WORDs TYPEs CHAR» PC fs wl3 56000500 
BOULEAN LIBs SQUASH», CHANGES», NUMBERED, OISPLAYs ~ASLCLOY 1 6) 6 a a ee a oa a oe a es 
STREAM PROCEDURE NOCHGMSGCWORK); 56000700 
@} BEGIN 56000800 
DItaWORK; pS$#=29 "NO CHANGES SINCE LAST UPDATE," i —_ 
p END3 56001000 
@; CASE DOING OF 56001100 
» LY 
er ; LIERERUO TET ETT teeta ees eee senetecatenecasatoaneeeneesseceyeen gens yIO001 300 
or A BEGIN % DOING = 0 | 56001400 
Tie PR A ~ . vi Bae PARAMETER, A000 OO 
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IF PREVW GEG PREVWSSAUS(WORDY THEN GO 


Oe an 1 


IF INCCWI) GTR 30 THEN GO ERRS 
END CASE 03 


GO TO ERRS & TYPE = 1 


56004100 _ 
56004200 


56004400 


Becerecncccreerasene reset acct erecrtetesesssereeresecsees cee  DEUUK50N 


LIBS s( CHAR? SWORD.CF I=" sy 

IF CHAR = "*" THEN SQUASH 

SE 

IF GHAR = "#" THEN NUMBERED ss TRUE 
ELSE 


+= TRUE 


wg 


END CASE 23 


20004600 2 


56004700 
56004800 
90904900 
56005000 

56005100 


LO goers eres 
56005300 


Bee ete ene nem erent eeete setae ner etesereeseeeeeeceresce ss 56005400 


EGIN & TYPE = 3, ALPHA WORD 
WORD.C1:5)%= O03 
MATCHCWORDs “END | a 


2, N 
 ACSREG] t= WORD te TENG 
TYPE 3= 03 
ENDS 
MATCH (WORD» "FILES ") % LIST FILES 
IAM t@ VLFILES3 
COMMONCELL 32 PC#Is 


56005500 
56005600 
56005700 
56005800 
56005900 
56006000 


56006200 
56006300 


56006500 
56006600 


GO EXIT: §6006700 _ on 


END} 
MATCHCWORD»s"TO ") CRAR t= then 

MATCHCWORD»"CHANGES") CHANGES! STRUE 
ELSE. 


ATCHL ORD WSQUASHE") SQUASH s2TRUE 


56006800 
56006900 


él oog 


WORKC2)2 sWORK(C4)8 =USERCOVES WURKL3]&3=SOURCEFILES 56001600 
PC t= AC SREG t= BASE = ACBASEJIIVFF3 56001700 
MATCH RATAB AC SRE G 939° 63 "OLS " Q rs 
BEGIN DISPLAY t= TRUES GO TO PRNT3 ENDs 56001720 
IF IAM & VPRINT THEN ; §6001800 
3 A — 586001900 00 
PRNT$ IAM $3 VLIST3 56002000 
ACHASE] t= Q;3 56002100 
W T s=_T 2 ees SOOO 8 OO Oe pane a 
END3 56002300 
WI8e213 56002400 
‘A PC po % PICk ALi, PARAMETERS 0 UU 5002500. 
BEGIN INCCI)S 56002600 
WORD % 3 ALINCCSREG)I3 569002700 
WORD ,[# =O THEN TYPE t= QO % IMBER OR =N R 56002800 
ELSE 56002900 
IF WOROef182) * 3 THEN TYPE 32 1 % +NUMBER, 56003000 
; en eG BOO 4 OF ee eer ot a 
IF WORDel 4:2] = 1 THEN TyPi t= 2 & SPECIAL CHARACTER. 56003200 
ELSE 56003300 
TYPE ¢= 33 % ALPHA WURD, ee Ee rome OVOSAO OK ve 
CASES: CASE TYPE OF 56003500 
BEGIN 56003600 
’ POS 706 a oo 
BEGIN &% TYPE = QO, 56003800 
ERs 56003900 


56007100 


56007200 
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ELSE 56007400 
MATCMCWORDs"NUMSERE™) NUMBERED %=1TRUE 569007500 @ 
BEGIN & NOT SPECIAL wURO = MUST BE FILE NAME, 56007700 
WORKES + REA Chen ead t= WORD3 56007800 
WORKL2] i= Q5 54008000 
END HANOLING FILE NAMES 56008100 
; ; : BEL = WH OF > 00 peemneaes een pe rr PSP Ut en 
Merete reece tn er eter at E Pee eeHesereretetereeereseerrerern des pIOU08300 
END ALL CASES3 56008400 
END ALL PARAMETERS2 0000 BOOKS 
IF WORKOC3) = O THEN GUERRC"NGFLLE "s 1)3 56908600 
IF (PC8#W1*%21)50 THEN 56008700 
sa sa a ee ee BOOB N OY ne oe 
IF TPCOUNT = 0 THEN % UPDATE NOT REQUIRED 56008900 
BEGIN 56909000 
tetera If CHAN@ES THEN % NO CHANGES IF TPCGUNTsQ = BOOSH OH 
BEGIN 56009200 
NOCHGMSGCWORK)3 56009300 
W F Ql» 29» ; Hah Se Se AUG DAO OS ena ee he Ra eS 
IAM is 03 56009500 
GO T@ EXIT; 56009600 
I a ee op te BOO OT OO. 5 adel. 2 eee TOR a eRe = eee eee SAT se 
END % IF TPCOUNT = Q 56009800 
ELSE IF NOT CHANGES THEN % LIST PROGMe NEEDS PARAMS 56009900 
WORKE21]) %= 03 56910100 
WORKCOBP) t= TENS & 3L18 468253 56910200 
P i= — 56040300 
END; 56010400 
ENDS &% IF PC = 0 56010500 
MOVE 42 WORD RAL ASE JERK ES ; enone SAO VOR OO oes 
DOGHOUSECLLIJ t= WORKEO)] is o3 56010700 
NORKEL TES CCE+SY STEN? é Peleriaes 63 & RCCHANGESI£1IA7 314 56010800 
g RF OU AS hh = —86010900 
& RCNUMBERED)L4847! 1 & ROwORKCE] NEG 0)(6: 47t1j §6911000 
& RCDISPLAYIC7#4724]) & a a 1] 56011010 
DISKWRITECESP1); $6911100 
RUN1 t= IF TRCCUNT RO | OR ie Baa a THEN "QUIKLST™ ELSE "LIST "3 56011200 
RUN = "CAND RSW R OO 
IF WORK{L2) NEQ OC ines ” WEANS LIST THE wORKFILE, 56011400 
BEGIN 56011500 
—__—_ WANT 82 VCLOSFWORKTABLES eA ee U0 on eka 
ERRSW 32 FILENAMES 56011700 
DOING 33 13 56011600 
PCOUNT NEQ O THEN UPDATES sz 13 % UPD N PROGR 6011900 =. waver 
IF ACBASE) NEQ@ O THEN & PRINT FEADING 56012000 
BEGIN 56012100 
TWXO sWORK(Ols0#27)5 6 y ae = 
GENFILINE CFILENAMEs TYPETABLELFILETYPE))3 56012300 
GO TO CASEAS 56012400 
$6032500 
END % IF wWORKFILE 56012600 
ELSE 56912700 
9 _NAM : 60 800 Paeeeie ron ==3 
FINDCLLATAME334411?7I20/ROBKL330 WORK (41 +USERCODE) 3 . 56012900 
ACBASE41] ts WORKE3I3 % SAVE FILE NAME | 56013000 
Mr & DOING. : eS ee at 60 0.0 
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WAITFOR %@ JAMs 56013200 @ 
GO TO EXIT; $6013300 
Seas Sree 5 SE ea Pe a PET Co 0 0 & CERNE SPO aR ae a eae ane 
ENO CASE O38 §6013500 ; 
Bence rece ret ene nr eee sat erate ses eens eee eeeeteseeeeeererereececce ees oH 6013600 1@ 
BEGIN *_DO i= BW 1° Ds 2 dl 1° ee eee a ee ‘ 
WANT %= VDISPATCHS ERRSW 3 USERCGDES 56013800 le 
DOING t= 23 56013900 : 
se IN a ao ha oh oi ROP DOU Ane oe, gc ndindeetnioe i 
Beemer enema cern ee ee rt ne rete reteset reese eres sateenereeesesesseners nee e SOUL4100 ; |e 
BEGIN % DOING = 2 56014200 7 
BOOLEANCUPDATEB AND EVEN = EN &% UPDATE OK Pee +1") 9-25 (0 eee ne ne ee ; 
BEGIN 56014220 Je 
CANCELCKPTCAC#J)$ SOUKCEFILE t= MAKEFNC"1S"sL4)3 56014300 
N Ses a AOS MO oko Gt en eke eB ek ee ee tg 
TAM$s03 IF BREAKORWRU THEN LINECLEAR(LCWsAL 4) 93 56014400 ie 
END CASE 23 56014500 bi 
wocee og a  SOOLEGOO | Cis ta eel ges Sek Maton At iE Soca So Sone Poe TO A 5 
BEGIN % DOING = 3 56014700 @ 
IF EVENTS£CI) LEG O THEN GOERKCACBASE+1 I» 203 36014800 bee 
Mts S SB ERRSW 3s USEK j ha OO DT hat yn np te tee A ct a a we ee Ot een Eee INO 
IF ACBASE) NEQ © THEN % PRINT HEADING 56015000 1@ 
BEGIN §6015100 ie 
2)3 et a eh Sf Oat Ss tek et = 
I t® FNONLYCLOO]-PCeERR SWI SAL BASE +1) 51)3 56015300 1@ 
TWXOUTCLL»LOCOJ+I»NUCRLF DS © §$6015400 a 
ENDS 56015600 . e 
END CASE 33 56015700 is 
* i) oo ook hia ae So ee es en Se Se Sao et 
BEGIN % DOING = 4 (DUMMY CASE) 56015900 1@ 
CASEGS 56016000 i 
. RTS = SE 3 e640 Oh ae) See ee a es se es i 
TIMEOFDAYCWORKE Le TIMECONVOTIMEC 1)» TRUE) DS 56016200 1@ 
WORKLOJIEHATEZ TWXOUTCLEL»WORKLO)+16-2)3 56016300 ig 
ND CA i UO Oa ee Pe ett te De eh a 
RECON SWS GN b 05 CWO E g ON Ge WW WM BERS UW 6 B6l OAS W EATS aw ww 6 pied WC bla 09 a OO O500 1® 
END ALL CASES} 56016600 i 
0 ; A 
ERR? GOERRC WORD »8)3 56016800 “rs 
EXIT: 56016900 i 
ND OF LISTITS a Tt hs ae SF on A Oe er a es ue es OO POW Cee 2s S 
BAI III IIIS II III IIIS IOI IIISISIOIDI GIGI IOI ICO IOS IOI einniniie 57000000 40 
PROCEDURE EXECUTECLCWsA)5 BOOLEAN LCW 3 ARRAY ALOIS 57061000 a4 
BW 9 ve te te eee ea ae eee ae ee ae ee eee ee IO SO RR KIO RR RT Q02000 Aq 
BEGIN 57003000 i e 
. 57004000 " 
% HANDLER FOR "RUNS "EY " AND "COMP ILE” REQUESTS 005000 Phan eo 45 
57006000 46 
REAL Ts»MAXSREG; 57007000 | @) 
ABEL CASELsCHKTYPE sRUNNsERKsEXI I 5 57008000 eee ee si 
DEFINE 57009000 49 
VERBWORD = AUCBASE )#>» % VERB "NAME" 57910000 1@ 
NAMEWORDCNAMEWORDY) * ALCGBASE+14+NAMEWORDJ Jb» & MFIOSFIC $70311000 Bi 
TYPEWORD = ALCKASE+3] 4s 4 FILE TYPE 57012000 5 
COMMONWORD = ACBASE+4 Js % COMMON VALUE 57013000 s|@ 
STACKWORD = ACBASE+5)4> %® STACK SIZE 57014000 54 
CORE WORD = ALCBASE+6]#> & CORE LIMIT 57015000 . & 
PROCESSWORD = ALBASES7]#> % PROCESS LIMIT 57016000 : «@ 
OWORD S ALCBASE+8 34>» % 1/0 LIM 017000 sy 
@ 0 
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SEARCHTYPE = ALCBASE+9) (33215) &, 4% TYPE FROM HEADER 57918000 
SeenON COENT = ACBASE+9) (18:15) &#, 4 NUMBER OF SEARCHES 57019000 
0) 7 BASE+9 O1:dLls 4 aLé FOR CA OgOQQQ ss 
SAVESIZE = 108; & WORDS USED ABOVE 57021000 
57022000 
D N R AN -R ATIONVA = 57023000 
BEGIN 57024000 
COMMONVALLE = COMMONWURD} 57025000 
A = STACK RDs eSPUP G00 08 oi ee pened 
CORESIZE | $= COREWORD3 57027000 
PROCESSLIMIT t= PROCESSWORDs 57028000 
IGLIM = lOWORD; ea eS ee Oe ee ee SFO 29 OOO! a es 3h es ae 
END#; 57030000 
57031000 
0 N RRORCERROR = 2000. 
BEGIN ; 57033000 
MSGPTRESERRORIS GO TO ERR} 57034000 
57036000 
57037000 
ASE DOIN ee a 0 BOO Oe oe ts 
BEGIN 57039000 
BEGIN % CASE O * SYNTAX CHECK §7040000 
SRMUEPEEMEA. Wo ACY U, 10 10 ere eee eee nN 
REAL WORD3 57042000 
BOOLEAN WITHTOGGLEsLIBTOGGLES 57043000 
BOO AN PRO DURE NONUMBER( ApMaxSR ; f MA SRE GS —SZOKMNQOD 
REAL MAXSREGS ARRAY ALO]3 57045000 
ee 57046000 
q . " FOIL 0 OCA INO ial NUMBER rik 2 Of $ O00 pase ae 
x "F INDNUMBER® WILL BE TRUE IF A NUMBER IS LUCATED 57048000 
% "=" CHARACTERS ARE SKIPPED eae CHARACTERS) 57049000 
NON RERS=F A 1 MARK A A AR ae IP OSOONO 
FOR SREGI=SREG*4 STEP 1 UNTIL MAXSREG 00 57051000 
BEGIN 57052000 
A R rae WEN 2 M NP Saree ene TY 
BEGIN 5754000 
MAXSREG&S03 FINUNUMBER?2=TRUES 57955000 
N OOOO 
ELSE IF NOTCACSREGI. C€152]7=1 AND ACSREGIF"=S") THEN MAXSREGI=<03 57057000 
END3 57058000 
REGt2SREG"13 % BACK UP FROM END "FOR" STATEMEN 7059000. 
END “PROCEDURE FINONUMBER; 57060000 
57061000 
ARCAC BASE SAVESTZE = & ZERO oO "STACK" wOR ee arereen 
MAXSREG is ACSREGtz=BASE*ALBASE]], C18si5) + SREG3 57063000 
VERBWORDS® Mee ae (9591],(6t42)3; % VERB NAME FROM TaBLE 57064000, 
FOR §R r p AXSREG 00 7065000 ee ee 
BEGIN &% SVAN INE THE PARAMETERS : 57066000 
IF ACSREGJo£3%83] GTR O THEN % ALPRABETIC STRING 37067000 
R A 57046800 LISD ea aa 
WORD t= ACSREGI].£6:42)3 57969000 
IF WITHTOGGLE THEN % “wITH" PRECEEDED THIS WORD 57970000 
ge N ; ; f Q O00 
MATCHCWORDe"LISTING") 57072000 
BEGIN 57073000 
MATCH( ERBWURD» "CUMPILE") ae MM NAURD ge") El “13 ERRORC B)3 70/740 
END 57975000 
ELSE - aa §7076000 
REIN % CH CK ABE ceuaraon: VALUES 077000 
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IF NOT FINDNUMBERCAsMAXSRKEG) THEN ERROR(8)3 57078000 
MATCHCWORDs"STACK “) STACKNYRD te ACSREG), (36312) ELSE 57079000 


" 


MATCMCWORDs"PROCESS") PROCESSWORU!® ACSREG) x60 ELSE 57081000 


MAT CHC RORDG "20 ") TOwORO » ts AUSREGIxK60 ELSE 57082000 
HACWORD., "COMMON OMMONWORO $= 4 i ELSE 57083000 
GOERRCHORD,8)5 * NONE QF. THE ABOVE 57084000 
ENDS % CHECKING LABEL EQUATION VALUES 57985000 
S 4GlLe 22 BTV A6000: ......- 
ELSE MATCHCWORDs WITH ") WITHTOGGLE %* TRUE 57087000 
ELSE MATCHCWORDs "LIBRARY"™) 57088000 
——— 572089000 
IF LIBTOGGLE OR NAMEWOROLOI=0 THEN ERRORCA)S 57990000 
LIBTOGGLE t= TRUE 57091000 
NO S2092000 
ELSE 57093000 
BEGIN % CHECK FOR FILE TYPES#FILE NAMES 57094000 
—-—-___-LF_TisFINDAWORDCATSREG)>TYPETABL ELI JsNUMOFTYPES) 20 THEN 57095000 __ 
BEGIN * WORD IS A FILETYPE 57996000 
TYP: IF TY¥PEWORD NES O THEN ERROR(8)3 & DUP TYPE 57097000 
Ni a H HE Enki" bad _ S7998000. 
TYPEWORDESABS(T)) 57999000 


IF CHECKBITCTYPEWORD=1sRESTRICTEDLANGUAGES) THEN 57100000 
END % IF FIvké TYPE 37102000 
ELSE 57103000 


0000 


IF NAMEWORDCREAL(LIBTOGGLE)] NEQ@ O THEN ERRORCS)S 57105000 
IF NOT LIBTOGGLE THEN & MFIDs 6 CHRS, MAXTMUM 57106000 
NORD és Neg * fy RROK tL 4 WRS MA O7 000 
NAMEWORDCREALCLIBTOGGLE) J%=woRD; 57108000 
END #@ FILE NAME CHECK 57109000 
ee : 

END % ALPHABETIC STRING 57111000 
ELSE IF ACSREGIJ="/" TREN 57112000 

! 28714; 
IF LIBTOGGLE OR NAMEWURDCUIFO THEN FRRUN(B)3 57114000 
LIBTOGGLE s=TRUES 57115000 
EN 5711600 
ELSE IF ACSREGJ="§" THEN & COMPILER NAME ABBREVIATION 57117000 
BEGIN 57118000 
IF SREG*MAXSREG THEN ERROR(8) ELSE WORD? eC ALSREG? sSREG+11)3 57119000 


IF Tr=FINDALETTERCWORDsTYPLIABLEL1)»NUMUF TYPES)#0 THEN GQ TYP3 57120000 


ec Rt A A A 


eee % NOT FILE TYPES §7121000 
5712200 
rise ERROR(8)3 ¥ NO OTHER ENTRIES ACCEPTABLE 57123000 
END SREG LOOP; 57124000 
fie 
TEMP %= SAVESIZEs % SAVE SPACE Iw "STACK" FUR VARIABLES 57126000 
IF Lee a a x DEFAULT 19 THE WURK FILE aL yeneee 
AM RRC "NO ! Ny 

IF TPCQUNT “NE@ 0 THEN % WORK Ftc nas BEEN ALTERED 37129000 
BEGIN 57130000 
WANT %3 VUPDAT 57131000 
LITOUTC"WAIT, “sNOCRLF DS 57132000 
DOING t= 43 57133000 

GO TO ExITs 57134000  —es 
END3 57135000 
GO TO CASE13 %-NO aah NESUARES 57136000 
D CASE 0} : 57137000 
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Beemer reer errr alae anne Meer ee eee Hee ene eeeeretesereeseseeeeeseeret 57138000 
BEGIN & CASE 1 = WORKFILE JPDATED 57139000 
AS fot re OP LAO O00. nt ee ce 

MATCHCVERBWORDs"COMPILE™) 2 COMPILE “ONLY 57141000 
BEGIN $7142000 

NAME WORD E 0 a0 ia 2OMP 7 a NORK ___.57143000 
BEGIN 57144000 
SVE NORE LOL a SUU RCE OEE 57145000 

ee —S7L4E0. 

IF TYPEWORD®0 THEN & FILE TYPE NOT SPECIFIED 57147000 
Sob $7148000 


x sp % YU W Tit TYPE eliotn eee 
CHKTYPE: IF Et Scie ANC C= 1 VER In ECE daa Cisil) THEN 57150000 
GOERRC"TYPE "219)3 4% NOT COMPILER TYPE 57151900 
HECKER 2FWORD* ip ANUUAC HE I OO 
GOERRCT,~£C6242),49)3 57151200 
END} §7152000 


jj eee ae ——END 2% IF wWORKFILE OR BRANCH FROM Below 2S 3900 


97136000 


ELSE IF SEARCHCOUNT=0O THEN &% UIRECTURY SEARCH NUT EXECUTED 57154000 
BEGIN 57155000 
IF NAMEWORDEC1I NCQ O THEN « CHECK QUTSIDE CILE =x: 
BEGIN 57157000 
MATCHCNAMEWORDC I IJsUSERCODE) ELSE GOERRCNAMEWORD(1)8)3 57158000 
Bam NS ee as ae Be A te ee ee 57159000... 
ELSE NAMEWORDCEC1I]:=USERCUDE; 57160000 
FINDCLL&IAMEC333412/7),0, NAMEWORDCO],NAMEWOROC1] +USERCUDE) 3 57161000 
teen oat =13 eenareml.~ b/ 2 Cl oc°-L 0 OF (ean er a ee ee 
SEARCHCOUNT s= 43 57163000 
DOING is 2k 57164900 
al; AM> 62000 
GO TO EXITS 57166000 
END ® IF DIRECTORY SEARCH WAS WOT EXECUTED 57167000 
BEGIN ¥ DIRECTORY SEARCH FINISHED» FILE IS IN DIRECTORY 57169000 
IF TYPEWORD = O THEN TYPEWORD t% SEARCHTYPES % FROM HEADER 57170000 
ENDS % IF SEARCH WAS EXECUTED SUCCESSFULLY 57172000 
57173000 
% CA M R 
57175000 
RUN1 %* NAMEW@RDLOI; 57176000 
RUN2t2TYPETAB TYPEWORD) .C6t42)3 % COMPILER NAM 17 
TRANSFEREQUATIONVALUESS % LABEL FQUATION ENTRIES 57178000 
WANT 3= VCOMPILEITS 57179006 
DOING s= 33 % RETURN AFTER COMPILING 57180000 
GO. TO ExIT3 57181000 _ 
ENDS % IF COMPILING 57182000 
7183000 | 
% "RUN" OR “EXECUTE” VERB °§7184000 
37185000 
IF NAMEWORDCOJ®0 THEN % EXECUTE THE wORK FILE 18600 
BEGIN syie7o00? 
NAMEWORDCO@I8*SQURCEFILES : 57188000 
| tJ 3 : 57 189000. irs thet e EE 
IF TYPEWORD20 THEN TYPEWORDtSFILETYPES % USE wORK FILE TYPE 57190000 
IF NOT eaevaey THEN 4 NOT THE CORRECT OBJECT FILE 57191000 
O06 
“MATCHCVERBNORDe "EXECUTE”) GOERRO"NO OBNe%9 1793 57192100 
Te ARSHCOUNS tao a AVOID DIRECTORY SEARCH AFTER COMPILE ; 57193000 
t 0 wha oa OMF ; = ure Y¥4000 
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ENOS % IF NOT A GOOD UBvyECT FILE 57195000 
NAMEWORDCOJ]t=4& "ROBYECTFILEL6312:36)3 % JN CASE SQURCE REMOVED 57196000 e 
O TO RUNAS % OF UK N00 ee a a 
END % IF THE WORKFILE . 57198000 ! 
ELSE IF SEARCHCOUNTSO THEN & SEARCH FOR OBJECT FILE FIRST 57199000 ; |@ 
A OOOOO oo 
IF NAMEWOROC1)=0 THEN NAMEWORDCLISSUSERCOULs 2 FIL NOT SPECIFIED 57201000 Je 


FINDCLLA TAME 3384137] >0*#NAMEWORD( 0) e (63 36] eNAMEWNORYLII»>USERCODE)s 57202000 


mecereremmene HS - eu. OC SUED SaaS, fy (SAAC te eee eee ce ae ee nena eNO SS FM eta Nd ee 6 
DOING t= 23 57204000 1@ 
WAITFOR ts JAM3 57205000 . . 
a a eh ihe ORO OO LE ee) oi : 
END & INITIATING SEaRCH FOR OBVECT 5720700C 1@ 

ELSE IF SEARCHCOUNT=1 THEN & RESULTS OF OBJECT SEARCH 57208000 S 
57209000 0 2 
IF EVENTS(1} LEG O THEN X NO OBJECT In DIRECTORY §7210000 . ‘e 
BEGIN 57211000 be 
us " see ST ONO OO ee fs Oe gn a ses Sol a ng 
MATCHCVERBWORD» “EXECUTE™) GUERRC"NO OBU,"s 1728 57212100 
FINOCLLSTAME33#4197),0, NAMEAQRUCO)J,NAMEWORDO 1) ,USERCUDE)3 57213000 
SEARCHCO ts —_mr2@i4oo0g 
SEARCHTOGGLE t= 143 % STOP PROCESSING IF NO SOURCE 57215000 
DOING %% 23 57216000 
A TB rl PE OOO oe 
GO TO EXITS 57218000 
END3 % IF OBJECT VERSION NOT ON DISK 57219000 
RUNA ¥Y ORVE K —..._57¢ (exe, 
ENO % RESULTS OF OBYECT SEARCH 57221000 
ELSE IF SEARCHCOUNT=2 THEN % SOURCE IS IN DIRECTORY 57222000 
IF TYPEWORDs@ THEN TYPEWURDS=SEARCHTYPES 57224000 
GO TO CHKTYPES % COMPILE THE SUURCE 57225000 
ENDS % IF SOURCE WAS PRESENT IN DIRECTORY = 85226000 
RUNNE . 57227000 
RUNL ES =NAMEWORDLO),(6336)3 57228000 
RUN2 3 SNAMEWORD 3 229000... 
TRANSFEREQUATIONVALUCS; % LABEL EQUATION VALUES 57230000 
WANT 8 VDISPATCH3 57231000 
AM t= QO; 57232000 eet ins EA pe adn 36 
GO TO EXITS 57233000 7 
END CASE 13 | 57234000 3 @ 
Boer eee eennoe? r SHORE H OMe Dewees aneHtenehen e pene Opeee 57235000 83 
BEGIN % CASE 2 = RESULTS OF DIRECTORY SEARCH 57236000 “0 
IF BOOLEANCSEARCHTGGGLE) THEN & STOP PRUCESSING UN NEGATIVE SEARCH 57237000 .|@ 
IF _EVENTSC1 EQ 7 THEN GOERRCNAMEWORDE OJs2)3 % NOT IN LIBRARY 238000 _ oy. 
IF CTSFEVENTSC2), (3636]) GTR NUMOFTYPES THEN T8363 . 57239000 bs 
SEARCHTYPE 1273 57240000 4@ 
0 0 cas 241000 i 
END CASE 23 57242000 6 
OHO HOCH OOH O RMD OHH REM Ea HEHEHE HEE E RHEE aeeaeH een eeonenesressneszaee ed H4IDN00 “1 
: N % CA 3 = A GMPILING 57244000 
MATCHCNAMEWORD(0O]sSOURCEF ILE) 57245000 49 
BEGIN % COMPILED THE HORKFILE «87246000 bo @ 
OBJECT tsSOuR . 136 247000 | 
GOODOBY ts TRUE} 57248000 5 
CANCELCKPTCAL#))3 57249000 7 @ 
NDS 57250000, 5 
MATCH( VERBWORDs "COMPILE" ) ELSE GO To RUNN3 57251000 55 
“TAM 2-03  §7252000 . 7 @ 
ND A ; are ¢ 7000 By, 
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END ALL CASES$ 57254000 
57255000 @ 
8 a X ? OOOO Bs hs bos 
57257000 
ERR& ERRSWEsACSREGI]3 WANT2SWAITTFORI203 TAMS2VERRORS 57258000 
oe St PASO ON! st a aes 
EXIT: 57260000 
END PROCEDURE EXECUTES 57261000 
Ae eke eee eae eRe ea ae kee ke ee eH ESBOONNNN ttt Seet iet b et = 
PROCEDURE LOADITCLCW2A)s BUOLEAN LCWs ARRAY ALO); 58901000 
BR ik we kk BRI Ri RIO Ro iI Sik ne kik inte tet 5 8002000 
BEGIN ee EPs Sea ae ee: 
DEFINE NAME WORD = ACBASE) #y» 58004000 
TYPEWORD = ALCBASE+11)4> 58005000 
RECORDCOUNT = ACBASE+2]# BOUGOOO 
OBJECTNAME = ACLBASE+3]#> 58007000 
DISKTOGGLE ww ACBASE+41%3 568008000 
__SA = ; eases ateatde ta = 
58010000 
DEFINE ee ics 58911000 
rT OG oa Eee er ee 
ERRSWi= ERR 13 Ronee gnene GO TO ERRORS 58013000 
END#3 58014000 
a cots a ee er ele EO EOD OQ t) 26 oe, Foal Mola Mes ce oe ey oe, 
LABEL CASE3» ERROR» EXIT; 58916000 
REAL 73 58917000 
000 ae ae elle eee & eaeree a ee Pare 
CASE DOING OF 58019000 
BEGIN 58020000 
BEG x CA Q = SYNTAX CHECK B8021000 
IF FILENAME NEQ O THEN 58022000 
IF TPCOUNT NEQ O OR FILENAME NEG SCURCEFILE THEN 58023000 
NO N A HEN H N00 Serer eee 
BEGIN 58025000 
NOSAVE?#TRUES ERRC ND SAVE"s48)3 58026000 ~————~~—__ > 
r) BU027000 ss 
SREG %= BASE = ALBASE]; 58028000 
CLEARCACBASE ]+SaVESIZE~ 1)> 58929000 
MP 3s SAV ROSO0Q0 ~=—————C—ts iia ees 
IF ACSREG].018815) NEG 1 THEN ERRC"NAME "9693 56031000 
IF CTSSACSREGteSREG41).038353)=0 THEN ERRC* NAME %26)3 58032000 
a N RRO = 000 Ea a EO 
IF F INDAWORD(ALSREG Js RE SWRDTABLEL 1 J «NUMUFRES WARDS) 20 THEN ERR(G28)358034000 
NAMEWORD = ALSREG).CO%42)3 58035000 
ND RI AM | 443 Oe NAME wOK R 0 SER 0 A 8036000 ey a 
DOING ta 43 <.* 58037000 
WAITFOR 32 IAN} §6938000 
_END p 0 58039005 
Race e OHH e Pe eed Her eee O ene e OHH e HOO EP Een tees ee et een serene pesennseers one eg DOVHO000 
BEGIN % CASE 1 = RESULTS QF SEARCH FOR SOURCE FILE 58041000 
EN NEO 2 R NAME WUKR Ds 2) 3 BO42Z000 colt oGe ae 
IF CT&sEVENTSC2]],03686)) LEQ NUMOF TYPES TREN TYPEWORDEI STS 58043000 
RECORDCOUNT ta. ne + 43 & RECORD COUNT 58044000 
NO ai PE WORD 1 LAY O00 
FINO(LL&IAM(33%4187)> Os NANENORD , [6t36)> USERCODEs USERCODE)3 58946000 
WAITFOR %= JAM3 58947000 
DOIN een BOER OOD 
END CASE 13 ee erie 58049000 
Mesesacsesesssrtereesyinsssticewss sags poeegse dogs evalys es sis ses04040s «38050000 


i a ees ce et Qe Silt pom ll a 5! se gs, : 
BEGiN 2 Ao — hid JOP om ARCH, OB : * OR. ! 8 U O00 
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IF NOT BOOLEANCDISKTUGGLE) THEN 58052000 
IF EVENTSC1 87 TREN OBJECT NAME 2= NAMEWURD,L6236]3 58053000 
an’. ANC : OS5 400.0 
BEGIN 58055000 
IF NOT BOOLEAN(DISKTOGGLE) THEN &% WO RETRY FOR DISK 58056000 
DISKTOGGLE t= 13 538058000ti—~i«‘« 
WANT t= VSETUPFILES3 58059000 
acca Na oe en eS eh ROU OU 2 Sn ele he 
END §8061000 
ELSE 58062000 
ERRC("NO DISK",46)3 % NU USER DISA 58064000. —— 
GO TO EXIT3 58065000 
D3 : 58066000 
ENDS 58067000 
IF ea canente THEN  EETOUT CALOADT NGM sNOCREED? 58968000 
F WU ome bed * TH FY Y PE [3} A T A ° Q ©: 9000s Ate Ba San 8 ec a Ee 
acai 58070000 
IF NOT CONCISE THEN 58071000 
A N BO72000 
TWXOUTCLL sh LO]2002)3 58073000 
WfO] st "ND LOAD” & "E"(194995); 58074000 
Phas 0 a : 80 OOO 
ENDS 58076000 
WRITEASTERISK te TRUES 58077000 
30 a ASE 33 Sees ett es SR BOT ROO Ge ei eet 
ENDS 58079000 
WORK(3) te NAWE WORDS 56080000 
Af) eK () a¥ale 
WORK{1)] te CLLASVeT ed) & CONCISEBITLCS:4731)3 38082000 
WORK(C2) %= WORK(4) 32 ERRSW t= USERCODES 58083000 
bal wees. b 
RUN2 %2 "CANDE "3 58085000 
HAY ts VOISPATCHS 58086000 
AAR i * HOO .. 
WRITEASTERISK $s CONCISES 58088000 
EOUMSG t= NOT CONCISES 580469000 
GUQDOGBY:=BCSOURCEFIL Et=F I) ENAMES=FILETYPE? 3, ASTRECORDI=0 58090000 
DOING ts 33 58091000 
589092000 


GO TQ EXxITs 


NO 
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BEGIN % CASE 3 = KETURN AFTER LOAD OR BRANCH GN DATA FILE 


OMMO 1=0 cN &® BUAD NA JK 


BEGIN 


NAM = SOUR 3 NA 


FILETYPE t= TYPEWORD} 


EWOR 


ay eUeey t= COBVECTFILE*=ORJECTNAME) NEQ O3 


ORD s RR ORD N 
NOSAVE “te FALSE} 
SEQLAST $= SEQIN t= Q3 
NCR N = 100 
TESMAKEFNC "LS" oLL)3 


MAKEFILECLL 84303354137) 91sT*USERCOLEsFILETYPES0)3 


END; 
IAM te O}3 
END CASE 33° 
ID. ALL CASES 


BO O06 


ereeceeeen se eD8994000 


58095000 
8095100 
§8095200 

. §5a096000° 


one, 000 
58098000 
§8099000 
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§8101000 
58102000 
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58104000 
§8105000 
58105100 
58106000 
58107000 
581906000 
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GO TO EXIT; 58109000 
ERROR? 58110000 @ 
RRSWe PRRSWeeAlL She ; seis se a a ee a OR OOO es... Sia A 
IAM ts VERRORS ; §8112000 
WANT #8 WAYTFOR ts OF 58113000 
ast Se a te a a ed a BT TAO OO... ene eeer es 
END PROCEDURE LOADIT? 58115000 
RS LEE ALES SRSA SAE LER AALS SRST ESET POETS SEES A ERA EE Ae eee OO U00000 
PR 0 OU kK aA R AN 2 A rd Ai We ARRA QU0OQ01700 
TUITE IIIS IGIOISIO CII IIONIO III IOI I ii iii ik ik tie #590002 00 
BEGIN 59000300 
bet rf a A , NN a A Rees Frey se SGU O OOO ees nn eS 
REAL To Fe 59000500 
DEFINE DEFAULTSAVEFACTOK = 743 5$000600 
CASE DOING OF — BONONO7OO 
BEGIN §9000800 
BEGIN % CASE 0 » SYNTAX ANALYSIS 59000900 
IF FILENAMESO THEN &# NO WORK FIpe OG ONTOOO 
BEGIN §9001100 
ERRSWt="NO FILE"; mMSGPTR *= 413 GO TO ERR; 59001200 
“IF. CTIFALSREGH=BASE" ALB ASE]. (18:15]) GTR 1 THEN % TOO MANY ParRaMS59001400 
BEGIN 59001500 
____ERRSWts alSReG+2)3 MSG i= SI OOO PROG ce ei eee ee 
END; 59001700 
IF T=O0 THEN ALBASE] t= =] ELSE 59001806 
ACBA =A SR jl 3 O TREN % AG’ A f NUMBER Gg 900. aS OO) eda OD oD 
BEGIN 59002000 
ERRSW3=ACBASE]4 MSGPTR:=44 GO TO ERR; 59002100 
BN A a ee SOOO OOOO x Tete lls 
TEMP t= 13 . 59002300 
IF TPCOUNT = O THEN Gi) TU CASL~L1$ & wORK FILE ALREADY UPDATED 59002400 
WAN = POA 1° 0 052% 6 F 0 Renee sot 
DOING t= 43 59002600 
LITOUTC"WAIT@™ "sNOCRLF)s 599002700 
wan y ¢ O0¢ 5 OP no oe, o eaneee eee ae 
Brame Perec erates ener Peete sane P areas merereeePaeereensnnssereneecs eee eDIVULIUD 
BEGIN % CASE 1 = WORKFILE UPDAIED 59903000 
AS a a a GUO SY OO Me 
IF NOT CONCISE THEN GENFILINECFILENAMEsTYPETABLECFILETYPE))3 §9003200 
MATCHCFILENAME » SOURCEFILE) % FILE ALREADY SAVED 59003300 
FINDCLLSIAMEC 3324127) ,0eFTLENAME sUSERCOLE s USERCODE )3 59003500 
DOING 3= 33 59003600 
A OR %= JAMS ws SOOO S700) oe eel 
END §9003800 
ELSE : 59003900 
si eee ae OOO ROO Gos ores 
TESLL&VMCPMSG(33341°7);3 59004100 
FisIF ACBASE] LSS QO THEN DEFAULTSAVEFACTOR ELSE ACBASE]3 59004200 
REPL eSOURC sUSERCUD 59004300 See 
FILENAME» USERCODE F&F ILETYPEC 321421618UNLOCKTOGGLEL 314471119159004000 
IF eras THEN §9004500 
REP ¢ R I $36)? RC s 59004600 
ATMA (6136]/USERCODE» 59004700 
FRFILETYPEL32 24226 J8UNLUCKTUGGLE(3124731)) 59004710 
~s— REMOV RCT? AME L628 36) eUSFRCUDE )3 §9004800 = _ 
WANTS @WAITEGRIGYMCPMSG} ae 59004900 
DOING §8 PARAM t= LIBMSGCTR t= 23° §9005000 


BMT NC a TR ; oe Le ae ; Ei 9005100 
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6 0 2, * ry ey a : oe <n SS * Th 53 > = ; 


ENDS 59005200 
ENDS & CASE 1 59005300 
QOsagQ 
BEGIN % CASE 2 = RESULTS OF FILE REPLACE 59005500 
IF ACBASE*1) NEG 7 THEN & NOT REPLACED = PROBABLY FILE IN USE 59005600 
9005700 
ERRSWis "IGNGRED"3 MSGPTR t= 22+ GUO TO LRRS 59005800 
END} 59005900 
zs " " . ee ee een 1°) _ bined as nines. 
MAKEFILECLL&13SC 3384127] o1 > Te USERCODESFILELYPEsO)3 59006100 
SOURCEFILES@FILENAME3 59006200 
OHoOooR HEN 08 aM bi 36); 59006300 
IF FILESOK THEN CANCELCKPTGAL*I)3 59006400 
FINISHED 59006500 
fade "SAVED, Me 2=CONCISE ; 59004600. 
WRITEASTERISK t= FALSE3 §9006700 
IAM t= O3 asic 
AT) q A : 7.5 806 To Vere ace ae ee ee 
Wont oaGaas che ea tn atan eae ear ayious AURA OS OA te wa ESS cae O00 TUDE 
BEGIN % CASE 3 = RESULTS OF DIRECTORY SEARCH 5900710C 
> NN d Q 0 iis N 9 OO7QAC9 Lit ed led Seal | 
BEGIN 59007300 
pailekdy $= FILENAMES MSGPTR t= 673 GO TO ERR} §9007400 
9007509. 
IF EVENTSL2]. C3626] NEQ FILETYPe OR aAlCgasSe] GEQ a OR 59007600 
BOOLEANC UNLUCKTOGGLE) THEN &% CHANGE HEADER : 59007610 
LLOISKREAD f= ALBASE+1 J $= EVENTSE2],016215]3 % HEADER ADDRESS 59007800 
ANT t= VDISKREADs 39007900 
DOING t= “ah 59008100 
END 59008200 
Q 0 « D3 NAz00 = 
ENDJ & CASE 3 59008400 
Mecsnceetgeassacsarensssrsesserssseseereseeceescessceasesssesesee ees ¢5 9008500 
- A Ri N U 
WORKO 4), C366) %sFILETYPES 59008700 
IF ACBASE] GEQ C THEN eae C2%10J)2=aCbase)s %& SAVE FACTOR 59008800 
BOOLFANCUNLOCKTOGGLF 9008810 Barnet, 
IF WORK(5].(Ci#iJs0 THEN & NUT GUARDED 59008820 
WORK(S] t= ates te 12s 59008830 
SK ALBASE+ Q 
IF GOODOBY AND CALBASE] Gk@ O UR SUGLEANCUNLOCKTOGELETS THEN 59009000 
BEGIN % CHANGE OGJECT HEADLK §9009100 
FINDCLL&TAMC33%44!7)>5 Or FILENAME» [Ot JOISUSERCODE*USERCUDE)3 59009200 
DOING t# 53 59009300 
WAITFOR t@ TAM3 : §90909400 
ND §9009500 
ELSE GO TO FINISHED; 59009600 
ENDS % CASE 4 59909700 
% a*9eeneoateotesan ae P9eF ose Fete eoeaFHvoeteet et HPs OP oat FeaeHHeneeeg ees 59009800 
BEGIN % CASE 5 «= RESULTS OF OQ8JECT DIRECTORY SEARCH 59009900 
IF EVENTSC1) LEG O THEN GO TG FINISHED 39910000 
LLOISKREAD %* ACLBASE*¢1]) ta EVENTS(2).618315)3 599010100 _ = 
WANT t#® VOISKREAD3 59010200 
DOING ta 63 59010300 
END$ % CASE 53 59010400, 
Kee eee cece need etree deen AAS ond UOo ee bee soe eho ta Heenb enter eeeansees eS9OLOSO0 
BEGIN % CASE 6 = OBVECT Leta “TN CORE 5390140600 
WORKESI CA2IIOIISACBASENZ 299010700 


oo n~ 7m FTF F&F WH = 


=> 
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IF BOOLEANCUNLOCKTOGGLE) THEN 59010710 
IF WORK(5].0121)20 THEN & yaad GUARDED 59010720 
WORK $= WORK([6] 35 i tp ee PRO OU OR SG eee 
DISKWRITECALBASE41))3 59010800 
GO TO FINISHEDS 59010900 
ye y ‘° ot enero 
END ALL CASES} 59011100 
GO To EXIT: 59011200 
RRs 9 iene 
WANTSSWAITFOR? #03 ITAMtsVERROR3 59011400 
Exits §$9011500 
) PROCEDUR : i et i ee ee OO EDO 
BIRT III IIIS III III TOI IOI GIGI didn et 61000000 
PROCEDURE REMOVECLCWsA)? BUOLEAN LCws ARRAY ALOJ3 61000100 
III IOI IOI UU UII Ui IU IOI tO ie ee 61000200 
BEGIN 61000300 
BOOLEAN Se G3 61900400 
REA ees ; 000500 
LABEL WRKFILEsERR» EXIT? 61000600 
IF BOOLEANCDOING) THEN &CHECK RESULTS, 61000610 
Sag IN Ce ee ee BOO GTB _ 
FOR ItsQ STEP 41 UNTIL Ae DO 61900626 
BEGIN 61900634 
FS : 64000642. 
IF X,C626] NEG OQ THEN 61900650 
BEGIN 619006586 
a WERRS Ma RLE ee 
LITOUTCX»CRLF DS MSGPTRi=23 61000674 
END IF% ENO FORS 61900682 
; Mis C ; ws 
END CHECKING RESULTS; 61000698 
S t= Q t= BcwCtsl)s 61000700 
IF PC t= ALCSREG2=BASE@A[LBASE FF & THE 61000800 ets, 
BEGIN 61900900 
WRKFILE?S FILENAME $2 TAM t= Q3 61001000 
TPCOUNTS=SOURCEFILEs 0 610 1)? ee one enee 
GO EXIT3 61901200 
ENDS 61901300 
THEN ALSREG+L] t= “"TOUMANY"3 Q Ya meennttts Pat hacas tsetse 
WHILE I LSS PC DO 61001500 
BEGIN 61901600 
_%s J[+4i3 teACSREG+ 6%42). Q Qo. 
IF X.€42%6] WEQ " " TREN & ILLEGAL PARAMETER, 61901800 
BEGIN 61001900 
MSGPO@INTER t= 423 4-6 CHRS MAX 61002100 
ERR! ERRORCSREG+19LCWraled)s : 61002200 
: . 30 EX 61002300 
END IF ILLEGAL PARAMETERS 61902400 
MATCH(CXs"SOURCE ")BEGIN St®TRUES UtsFalSeEs END ELSE 619002500 
MATCH(Xs"OBYECT ")BEGIN Of STRUES Sts aLSE 3 ENO ELSE 61002600 
BEGIN % IF WE GOT HERE WORD 1S NOT SOURCE OR OBJECT, 61902700 
MATCHCX,» SOURGEFILE) GOERRC"WRKF ILE» 14)3 61002800 
IF YOUF INODAVERB (xX 3 ] 6100; rete = 
GOERR(X*5)3 61902820 
IF S$ THEN BEGIN ACBASE*WC)8=x; INCCWC)3 61002900 
FO THEN BEGIN ACLBASL JtWCJtex, idols NCCW H 6100300 
END IF A LEGAL PARAMETERS : 61003100. 
END OF ALL PARAMETERS? Sc 61003200 
FW OUT WN KNO EF TLE UNAME S SP A. 4100 0 
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@ 
BEGIN 61003220 
@ IF O THEN GOODOBU! SBC UBJECTFILES <0) 61003230 
IAMtaQ@3 GO EXITS 61003250 
@ ENDS 61003260 
3 Swi . & Fee Re RASA ae Re O00) ne ee, 
LIBMTINCE®STRUES ALINC(OREG) ISHN Ct=PARAMS=LIBMSGCTRISWC@1s 61004000 
8 FOR It=4 STEP 1 UNTIL WC DU 61004100 
eis £3: EEL NCE NY 561 0 > 1k: Se ee 
USERCODE)3 61004300 
® EXIT! | 61004400 
END OF REMOVE PROcPoURES OK ZOO 
FOI III III I IOIDI II III IIDIIIIGI III IOI IG IOI III III IOI ISO ner #2 62000000 
roa PROCEDURE CHANGE(LCW#A)3 BOOLEAN LCW3 ARRAY ALO]$ 62000100 
5 N ______ 4200026) C.. Aare cies penne en en nee en ee 
Lteeneeewee START OR CHANGE CODE 62000300 
@ |: LABEL EXIT} 62000400 
Ao a cee a Ni ee eee ee Sat UO ME Ors ets are ee ws 
TEMP t= 43 62000500 
er CASE DOING OF 62000600 
BEGIN = 62000700... 
BEGIN % CASE 0 62000800 
8 CASE CHANGEWHICH(AC#]) OF 62000900 
* a—h SoWenss ___. 42001000. wo oe, Se tara so 
BEGIN 62001100 
@: 1AM t= VERRORS 62001200 
2 ee o> 1 or Oi Bc © 0, 6 knees 
ENDS 62001400 
Oo: BEGIN % WHICHEL*°WORKFILE TYPE 62001500 
' NAM s 0 ala JERR CA ; _" 62001600 | oe lg oa BE at 
Pe IF FILETYPE=8 AND ALBASE+1) NEQ@ & THEN GOERRK(™DATA 6193 62001650 
@ FILETYPE t= ACBASE+1); 62001700 
; MP t= MAK bb " , __ 62001800 | 
FINDCLL&IAME93841271]90>1 EMP» USERCODE*USERCODE)3 62001900 
®& TEMP te 33 62002000 
DOING 35 002100 
, WAITFOR = IAMS 62002200 
@ END} 62002300 
BEGIN % WHICHs2=@FILENAME TYPE 62002400 = 
FINDCLL&ITAMC 3384187) 202A(BASE] + USERCODE »USERCUDE )3 62002500 
@ DOING t= 43 62002600 
WAITFOR t= JAM3 62002700 = 
ENDS 62002800 
@ BEGIN % WHICH=3=="N\AME TO NAME 62002900 
FINDCLLQIAME33241!7]9 0» AL BASE+1) »USERCODE »USERCODE)3 62003000, 
DOING t* 33 WAITFOR t= IAM} 62003100 
. ENDS ; 62003200 
», I N i an 62003300 ©. 
GOERR("LOCK 51593 62003400 
@ | COMMENT 62003500 
LOCK 62003700 
@; STUFF 62003800 
Sti ee aA EE Bal ae a og i ee i ht eee ee oe tee oe or eR OO ROO Ol se et pes 
P END; 62004000 
@} BEGIN % WHICHS5==PASSWORD 62004100 
=Q THEN GOERR("PASWURD",49)3 62004110 
1AM 83 VCHNGPSWDS 62004200 
er DOING t= 0} 62004300 
. a x 620 ole 
& 
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2 REPELS 


rd] 
END3 62004506 
@ BEGIN e Haren ss == CHANGE NAME oe. 62004520 
HEN RBROU NAME ee POON IO 
1 TAMS=VCHNGNAME$ GO EXIT3 62004540 
2 7 7 

@ ena CASE 6s . | erence ener eee 
4 IF ALBASE +1122 THEN ALDASE]! =O€ALBASE )L1216! 36); 62004564 © 

rd] : FINDCLURTAMES S141 877020 BASE 1) »USERCUDE*sUSERCUDE)S 62004566 

a 1) 7 = H ‘ ‘ote 
7 WAITFOR t= IAM} 62004570—<Ci‘:C;«C;C 
eo" END? ‘ 62004572 
ai rm {4 Tesmwar et bat BON HENO pot pt ag AS 
po END CASE 03 62004700 — 

eo" BEGIN % CASE 1" GET HEADERCCHANGE TYPE) 62004800 
n2 TS=CIF SCHEDULINE ANU BUCLEANCSCHEDNAME.[121]) TH 62004900 
; IF EVENTS£C1) LSS T THEN GOERRCALBASE )o2)3 62004910,.——“‘i‘:;é 

@' ECOTSRAE AD ee ACBASE+2] %= EVENTSL2).FF3 62005000 
I A AK Ais 
hs “DOING t= 23 TEMP t= 33 62005200...——CS 

e” END CASE 13 62005300 

8 Z A 4200 Oho. 
a WORKE41.(3686] $= ACBASES1I3 Aryans 

@ » . Bene eee 62005600 
i SCHEDULIN es 62005610. 

. d IF BOOLE ANCSCHEDNAME © C1:1]) TREN & TERMINATING SCHEDULE 62005620, —s—“—t—stC‘(; 
BEGIN ' ~ 62005630 
SCHEDGOTOC@1)3 62005650 —— 

e ah go To EXITS 62005660 

* .] } _—e 

i MATCHCALBASEJsFILENAME) IF FXLETYPE NEQ & THEN 62005700 

@ BEGIN FILETYPE t= ACBASE+1]3 62005800 
rs YAM ry j ees OSH OOQ 

ELSE 62006000 

] BEGIN FINDCLL&TAMC 33941571, O» SOURCEF ILE*USERCUDE sUSERCODE)s 62006100 

ti ki 2 H Ad (3 FS AM ° OOAéA200 inosine. 

GO EXIT 62006300 

rd] ENDS 62006400 
NM 3 AM = e O6500  — 

e END CASE 23 62006600 
i BEGIN % CASE 3 = CHANGING NAMES | 62006700 

Ah 0-0 HET A a 5 a3 _._ 42006a00 
e ALBASE+4] t= CALBASE+2) $= ALBASE +11) 6LO3 36)3 62006900 
| ACBASE4+3] t= CACBASE+1] t= ALBASE]). (6336]3 62007000 
HAN P : ALBA + FRC wi Alen naan a 
ACBASE+2]> USERCODE)} . 62007200 
@ « CHANGER TLECLEAVHCPNSGE39541 171, ALBASE*31>USERCODEs. 62007300 
"7 98a Be 
Ps TEMP tm 3} 62007500ti(‘(i‘ié - 
; WANT 3= HATTFOR t= VMCPMSG3 62007600 
: atu i‘ e ef OL 0 Sanek ne ee Ba Oe enero ee 
@ | PARAM ts LIBMSGCTR t= 23 62007800 
ene ts 43. 62007900 
al fy OR OO 

e: BEGIN % CASE 4 62008100 
g IF ACBASE*3) NEQ ? THEN GOERRC"CANNOT ",2)3 62008200 
BEGIN. ee oo = 
: 62008400 

i de FILENAME ts _ALBASE+235_ 62008500, 

@ 
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@ @ 
| BEGIN SOURCEFILE t= ALBASE+24; 62008700 
@ TEMP ts HAR SE NC CASE): 62008800 e 
MAK mh SER COP ; ~~ A2VQB900 

IF GOODOBY THEN OB JECTFILE t= ALBASE+4)s_ 62009000 

e NOs 62009100 |@ 
END; 92009200 3 
IAM 23 03 62009300 : 

r ) ENO CASE 43 62009400 |@ 
BEGIN % CAS HANGING SOURCEFILE TYF geet, 2009500 6 
IF EVENTS(C1) NEQ 7 THEN GOERRC"ARRGH 52493. 62009600 7 

re LLDISKREAD t= ALBASE+2] t= EVENTS(2).FF5 62009700 |@ 
bs _ 2009800 asa te 9 
DOING t= 63 TEMP t= a: 62009900 10 

é END CASE 53 62010000 1/@ 
BEGIN % - 6 = FINISH SOURCEFILE TYPE sie at BOO VOY OO! oo oon chee eos aes "2 
WORK(4}. (3616) ta ACBASE+1)3 62010200 "9 

® DISKWRITEC ALBASE42])3 62010300 @ 
AM t= 03 Be = 27-0) 8528 eae a a ee eo 1 
END CASE 63 62010500 "6 

@ BEGIN % CASE 7 = CHANGING SAVE FACTOR 62010600 | 
ENTS THEN GOFF CBAS re 15 PCy A. Lae Toe re 

LLOISKREAD s= ACBASE4+3] t= EVENTSDL2),FF3 %& SAVE ADDRESS 62010800 1 
e WANT $@ VDISKREADS 62010900 , 2 
DOTA = B3 42011000 al 

pal END3 % CASE 7 62011100 ; e 

@} BEGIN % CASE 8 = HEAUER NOW IN CURE 62011200 wy 
2 WORK = 3% AE Ce mes 1-101 ic 101 oe RO a re 2 
Bs DISKWALTECALBASE*S 707 % REPLACE HEADER 62011400 25 

nal IF AtBASES 1) NEG © THEN 62011500 1 @ 
F * Ws % 0 0 —BO2011600 0 2 
pe ENDS” 62011700 1@ 

@ -: T t= O & ACBASE}(1226%36)3 % OBEVCT FILE NAME 62011800 23 

F M SERCODE*US ; ee a pc 
WAITFOR 25 TAM3 62012000 1@ 
: DOING t= 93 620121400 32 
ENDS % : acs SUA BOG Os 3 
BEGIN < CASE 9 62012300 34 

@ IF EVENTSC1] NEQ 7 THEN % NU OBYECT VERSION 62012400 1@ 

a N AM t= Q eer 42012500 46 
END; 62012600 nd 

@ LUDISKREAD t= ACBASE*3] ts EVENTSL2I.FFs % SAVE ADDRESS 62012700 a @ 

9 WANT 33 R Ol¢ Bote Es 
DOING t= 103 62012900 ‘e 
e END$ % CASE 93 62013000 : 
i ; b O = HFADER A Nene : 62.0 0) SE ITE ee 1 
WORKE3)602810] t= ALBASE*2)5 % REPLACE SAVE FACTOR 62013200 4 e 
@ | OISKWRITECACBASE43})3 % REPLACE HEADER 62013300 ‘ 
=z 0 45 
END} % CASE 10 62013500 ‘ 

@ | END ALL CASES; 62013600 | 8) 
___ 62013700 : 
ENO CHANGE VERB} 62013800 4s 

r ] in TESTEELI LTTE LATTA TASTE eee T TESST LOTT LeTESTTC ere TT eTeT Tee Tee eT Teeter: 63000000 50 @ 

PROCEDURE RENAMEIT CLCWs A)} BOOLEAN LCWs ARRAY ALOQ3 63000100, 51 
; 3 de se tea ei de tT I OR ITO I OI a tO kk 0d 63000200 5: 

@} BEGIN 63000300 «| @ 
LABE EXITS 63000400 54 
CASE DOING OF 63000500 55 

@ Fs BEGIN en 63000600 {@ 
BEGIN .% CASE 0”. 63000700 5 

@ e@ @ 


on7mrn~ oO FW B® WKH = 


IF FILENAME = 0 THEN GUERR 
SREG t= BASE ~ ALBASEI3 
GUERACTFILE WAM» 


CMNCR ILE "e 1)3 


639006800 
63900900 


IF ACINGCSREG)). C333) = O TREN GOERRCALSREGI58)3 
IF ACSREG].C343)57 THEN SER Mate Cease 
NDAWORDCAL SR s HESWROTARB 
NUMOFRESWRDS) NEW O THEN GOERRCALSREG)»29)3 
FIND CLLSIAMC33%4127],0, ACSREG) LOS 42)» 


DOING t= 13. 
WAITEOR $3 YAM} 


63001150 


63001300 


63001400 


63901600 
63001700 


OOLO00 
63001100 


a aa eas el 


eo 100 BL ¢ I ¢ ieeampmenren ada 


vn SBNB SC ASE! SO Hc oe eee os et ct eee DONO 


BEGIN % CASE 1 
IF EVENTSL1] GEQ 0 THEN GOERRCATSREGI,3)3 
MATCH NAME» $ RCEF I 
BEGIN 
WANT tf “voopys 
FILENAME t= ALSREG).LOt42]8" “L42%4236)3 
IAM 8s (3 
ND ASE H 
END ALL CASES} 
EXIT: 


63001900 
63002000 
63902100 
63002200 
63002300 


63002500. 


63002600 


63002900 


O300 2700 se 2 
63002800 


~ND OF PNR Be rl a aye er tt Pe 


IIIS IOI I ISIS ISIS IG I IIDOI ISIE IO IDE entre 64000000 


PROCEDURE WHATSITCLCWsA)5 SBUOLEAN LONG ARRAY ALO; 64000100 
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a * * 5 > z a 


E es eset de de de oe see ee te ee eee eke eee he eee te eee ee eee a te ee te ae te te te ie eee BH OOO OO 
P BEGIN 64000300 
ia LABEL CASE1LSEXITS 64000400 
we REA M Pe DA WNOreneL-veve Rees 
iii aC AA Ect ei CLA ae Ao TT i ed ee 64000600 
r STREAM PROCEDURE MSGCLeFILNAMs WRATOG* TYPEeNKEKSs DAT Es TMs SAVER D3 64000700 
A : ones ee OHV00800 
VALUE FILNAMsWRKTOGs TYPE sNREKS*O8TEs TMs SAVEF3 ; 64000900 
BEGIN LOCAL SV3 LABEL EXIT3 64001000 
DY rs DS %t=8 ws Sree fs DS t=9wDS3 64001700 See eee 
DIt3Ls DSt=SLITMFILE ", SIt=LOC FILNAMS SI8s514); 64001200 
7¢CIF SC=" THEN | JUMP QUT ELSE DStSCHR); 64001300 
WRKTOGCDSi= R "3 640¢ 6 ane acre 
DSt=7LIT"» TYPE. "7 SI: =LOC TYPES S[tseSley3 64001500 
re Ser en ie OUT ELSE DSt=CHR); 64001600 
o : Te 
Siiz LOC aaeKal DSt=8DEG DIls=5Vs OSt=7F ILL; STtsSVs DO] s=sve 64001800 
BCIF SC#" " THEN SItsSy+1 ELSE DS*=CHR)S 64001900 
, =§ Lid RNS"3 64gng7qqqg 
WRKTOG( JUMP QUT TO EXIT); eh 64002100 
DSts1OLIT"s CREATED "3 sLeecat: ‘DATES DS32ACHRS 64002200 
Syrsi0 M3; pSex weet V2ap pS2=4p 64002300 = 
DI ssSvVs DS8s3FILLs Sltssvs OL saSvi 64002400 
4cir Sc=" " THEN SI#S5I4+1 ELSE OS*SCHRIS DOStSelLIT") %3 64002500 
PSis "Sra" 3 t=O], _ 64002600 pe 
StssLOC SAVEFS BStzQDECs OLtsSVs OSt=3F ILL; SItsSV3 DIs#SVa 64002700 
Q¢crr..SCz* " THEN SiteSiet ELSE OStscHR)3 64002800 
-XIT: OSte6 Rie ae 640C 
END STREAM PROCEDURE MSG3 64003000 
FCECE CEE eee ET Tee CTT RT Se eT ee ERE Te Cee eee Ce ee ae re ee ee 64003100 
5 ASE NOING O ° ¢ ee ee Sees 
BS BEGIN .. 64004500 
iB BEGIN : beta na ae 64004600 
eh SREG .t@ BASE. © ACBASE]3 004700 
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a * 3 2 53 
D  & on So & & Gg 


oR SSessesSaeres 


a: 


TEMP $3 23 64004800 6 
IF abeee) t= ACSREG].FF = 0 THEN % NO PARAMS» WANTS WRKF IL 64004900 
sg OO no On ee 
IF FILENAME 2 O THEN GOERRC"NO FILE%+1)23 & NO WORKFILE 64005100 , 2 le 
IF TPCOUNT GTR O THEN & UPDATE REQUIRED 64905200 2 
. A ALOO OOo eee Z : 3 
WANT %= VUPDATE} 64005400 le 
LITOUTC™WAIT. "p1)3 64005500 ; 
DOL eae ee ree SE ee CORE eee’. 0 20.7.1 0) ee es 8 
GO TO EXITS 64005700 i e 
END ae WORKFILE NEEOS UPDATE 64005800 : 
: OL OS Se Se Ea he oe a te I GO ts po st 
ENO & IF WORKF ILE: REQUESTED 64006000 @ 
ELE iF ACBASE J GTR 1 THEN % CHECK FUR WOBMECT®™ 64006100 : 
ALBASE*13180 a AiSRee SEC iare Tae ELSE GOERRCACSREG)»8) 64006300 le 
ELSE ACBASE+1] t= ACSREG+1),06%42)3 64006400 i 
s — 64006500 
ENDS % CASE 4) 64006600 Je 
Meee rrenerceetneeese res taresetereresecescessetaceresevesescrenecces s fbU6700 ke 
BEGIN & CA SOMO OB GOO en. ohh Oe ee ie 
ACBASE+1] 2 SOURCEFILE 64006900 a 
CASEL? 64007000 S 
ND 8 TAM 2 20x, AT BRA +11, USERCON SERCO é OEE OO sie oe ee en ee at 
WAITFOR t= JAM} 64007200 a 
DOING ts 23 64007300 a 
—ENDJ%_CASE 4 OFM OO pS a ae a 8 a 24 
Boer err een rarer erent ens earn eee sP rea resreeretessrenereeerereesecess 64007500 5 a 
BEGIN % CASE 2 64007600 wil 
DO THEN DERRCALCRASE+ ; G4007700 fe 
LLDISKREAD $= EVENTSC2) FF 3 % HEADER adDoRESS 64007800 
WANT % = VOISKREAD:; 64007900 
SN ic OUR OO ar ale 
ENDS % CASE 2 64008100 
PT ECET A ag CASE ae NEAGEE che Oe OAR et et nt SOS tate wren ae ge a GRC O BENG 
BEGIN ASE 3 HEAD NOW IN CORE _ 64008300 © a el Pte 
DATE ts DATECUNVCWORKE 3) 0f 30%181)3 64008400 
IF TPtSWORKC4),£36%6)] GTR NUMUFTYPES THEN TRi=05 64008500 
MtzwORK 3]; *% CREATIUN ME 64U08600 36 
TMEBTM DIV 216000x1004TM DIV 3600 MQD 60 DIV 13 64008700 a 
IF ACBASE] = @ THEN % WANTS WURKFILE SPECS 64008800 3@ 
MSGCLeFILENAMEs TRUE sT¥YPETABLELFILETYPFI»WORK(7I] 41> 64008900 9 
DATE» TMs» WwORK(E3),£2210)) 64009000 \@ 
ELSE % WANTS NAMED FILE SPECS 64009400 “4 
MSGCL »sAC BASE +] J oFALSEsTYPETABLELCTF I] »>wURKiL/J+1 64009200 . 44 
DATE» TM»WORKEA), £23101)3. 64009300 4 
THXOUTCLL9LE0)s8001)3 3 64009400 4@ 
IAM. $s 0 : : 64009500 BPs ens tut den : 45 
END CASE 33 64009600 . 4g 
END ALL CASES3 64009700 | 8) 
XI OU OF B00 sa ort ae es ee i ee 5 
END PROCEDURE WHATSIT; 649009900 nes 
JURE TIISIIEI ITI IE IIONENIISIIEINIIIU TE Rt Kina Haat et Het ie 65000000 4 @ 
PROCEDURE PEI TCLCWeA)s BOOLEA Cws ARRAY ALOJ3 65001000 ao = 
Be tee ep te reehteee crssene cone ari rae eToe aera, ea 5: 
BEGIN 65003000 1@ 
REA 65004000 54 
LABEL Exits : ts te 65005000 ws 5 e 
65006000 hes 
F _ FILENAME2O THEN GOERRCMNO FILE"s 1 )3 65007000 | 5 
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PROCEDURE LOCKITCLCWedA)3 BOOLEAN LCW? ARRAY ALOVS 
BEGIA 


68000100 


ee det RII IOI IG IO IOIIOII OO aI IOI i tooo tot act 68000200 


6AROUOO0 OO 


T $= ACSREGH=BASESACBASEIJ.L1I8tiznds & PARAMETER COUNT 65008000 

IF : on 1 THEN orn teat 61s 65009000 
' If Tt =F INDANORDCALSREG]> TYPETABLEL1}> NUMOFTYPES) NEQ O THEN 65011000 
2 BEGIN % ENTRY IS IN THE TYPE TABLE 65012000 
3 SAR 650 O16 a ep erseeeemter renee ae 
7 IF FILETYPE=8 AND T NEQ 8 THEN GOERRCALSREG)]-61)3 65014000 
i IF CHECKBIT(T= 1, RESTRICTEDLANGUAGES ) THEN 65014100 
6 OFRR Q 6 > a 0 eee 
. FILETYPE «3 T3 65015000 
s IAM te 03 65016000 
: NLD pe a ROTI OOO ao 
be ELSE GOERRCACSREG),8)3 65018000 
eI EXIT: 65019000 
12) 
ie Sa RG NE a 
i Kote He te ae te tee He ie te te tee ei tie iI III IG OI IOI i tok 67000000 
Nal PROCEDURE GUARDITCLCW2A)3 BOOLEAN LOWS ARRAY ALO) 67000400 
ns (LARALARAAPAAAR PEAR PERE ALAR AE RSS RA AAR RARE EREE RR EROEREE EE Socom Pee RSld ok 
he BEGIN 67000300 
? LABEL T3 67000350 
bi Bales Bo 8 UL i 2” «2 92 ene en are eae a ATU ORO cos un consi rack 
‘ BEGIN 67000500 
eo LITOUTC™WAIT, “sNOCRLFE D3 67000600 
| ___ WANT %= VUPDATES Deiat spat ie ee tia eg ae IOP OOO TOU 2c 8 eo caer 
iat END ELSE 67000800 
PS BEGIN 67000900 

RUN t= "GUARD "3 RoW APH OW 0 16 6 pmeenee terre enema 

5 RUN2 ts "DISK "5 67001400 
i IAM &= VDISPATCH3 67001200 
wi t "wa " NOCRI j 6700 erage eee 
pe ENDS s7001 306 
a END GUARDITs 67001400 


ERRERERARERERERRPRRERRERERR RARER PPPOE RRR RRR RA kk ee ek ee ep 6B Y00000 


ae 


REAL [»PCeIMAXs WORD; 68000400 
BOOLEAN LOKsUNL Ke PUB sWORKFILE »NAM1»NAM2sSRC sO Je WTHS 68000500 
LABEL RESTRT»SELECTsSECURs CHECAKAsERRi*ERROP EKITS __- -68000600 = 
CASE DOING OF 68000700 
BEGIN _ 68000800 
: BEGIN & AS )# N TAX NALYSIS 68000900 2 
PC t= ACSREGSSBASE*ALBASEI],CAi8i15)3 & PARAMETER COUNT 68001000 
I t= VERBTABLECACSREG)].LIS9JJ«.LOt42)5 & VERB NAME 68004100 
cere oe MATCH CT "UNLOCK ") UNLK ¢5 TRUE ELSE ewe MES a loot un MOBUOTE 10 4.0. s 

MATCHCIs"PUBLIC ") PUB %= TRUE ELSE LOK 32 TRUE? 68001120 
MATCHCFILENAMEs 0) ELSE % GOOD WORKFILE 68001200 

: : NJ . HROO 0] s RD aeeer eine See Neri 
ACBASE%1) t® FILENAMES % DEFAULT FILE NAME 68001400 
pug aee t= TRUE; 68001500 

ss SOB VOT 6 OO a as Set See 

IF Scan THEN & NO PARAMETERS 68001700 
BEGIN 68001800 

TF NOT WORKFILE THEN GOERR("NOFILE ",1)3 % NO WORK FILE ss #8Q01900 
NAML:S2=TRUES ACBASEIE=03 & ASSUME WORA FILE NAME 68002000 
GO TO SELECTS & NO FURTHER SYNTAX ANALYSIS 68002100 

ND 3 < - 

ACBASE J tsC1teSREG+1) RC IMAXP=SREGH#PC) (18233901518 68002300 
RCPUBITESTATHTIENCLORTE LWT AT SPPERCUNURDT LES AENL YL 68002310 
i i 6RBU0 0 
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FOR Lt#r STEP 4 UNTIL IMAX DO 68002400 
BEGIN 68002500 e 
WORD ts ACI},£(6%4273 68002700 le 
MATCHCWORDs "SOURCE '") 68002800 2 
B \ : — 68002900 4 
IF SRC OR OB8Y OR WITH THEN GO ERR1s ® INVALID PARAMETER 68003000 ‘le 
SRC t= TRUES 68003100 : 
ses ae ae ht ES BUS OOO te Ss cate ie 6 
ELSE MATCHCWORDs "OBJECT ") 68003300 le 
BEGIN 68003400 - 
ee j ; i_& INVALID PARAMETER 48003500 ss ° 
OBJ t= TRUES 68003600 ‘@ 
END 68003700 A 
MA rC WORD» WT} " —-- ABQORBNO 2 
BEGIN re 68003900 ‘le 
IF UNLK OR PUB OR WTH THEN GO ERRJJ % INVALIO PARAMETER 68004000 i 
ae i n fo 68004100 19 
NAM] $= WTH t= TRUES & LOCK THE WORK FILE IF NAME NOT GIVEN 68004200 ar 
END 68004300 ki 
FMTH THEN % LOOKING FOR GUARD FILE WAME nod) be 
BEGIN 66004500 ‘9 
IF NAM@ THEN GO ERR1} %¥ NAME ALREADY GIVEN 68004600 | ed @ 
eee SE+ bd i AVE OOO ala tat tt ial ee sg Ee : aq 
NAM2 22 TRUE, 68004800 - 
END 68004900 23 @ 
_ —ELSE_IF NOT _NAM1 THEN % NAME OF FILE 10 HE VockeD  ggooso0o. 4 
BEGIN 68005300 2 
ACBASE+1) == WORDS 68005200 cs @ 
eee ts BU OS S00 ics. eee os oe a os ee 2 
END 68005400 Je 
ELSE 68005500 i 
a SS ag oe Sie sn a BOOS FO tint eo Sa EN ate Be a 
ACBASE).C33%1S]te14 GO TO SELECT; | 68005520 et 
END3 : 68005530 2 @ 
END OOP; 68005600 0 3 
ACBASEJ]:=03 % EXD OF PARAMETER LIST 68005610 
SELECT! 68005700 24@ 
F_NOT NAML OR (WITH AND NOT NAMD) THEN GUERR("INCMPLT"» 623 68005800 36 
IF UNLK THEN ACBASES3]3 SAC BASE*+4 J 23314" ELSE 68005900 ed 
IF LOK THEN ACBASE+3]9=ACBASE+4)}3= Q ELSE 68005910 4@ 
ett ED at I re ree ee ee Oe - tt e 
ACBASE+3) 25314"; ALCBASE+4]8=0; 68005930 ‘0 
ENDS 68005940 a1 
F_WTH JHEN % CKECK FQR GUARD FILE 68006000 a2 
BEGIN — 68006100 4 
ALBASE4+5}] bs REAL(SRC) & REAL(OBUIC4611I3 % SAVE TOGGLES 68006200 .4®@ 
FIND(LL& TAM 7] + Os ACBASE+2] »USERCUDE* USERCODE)3 68006300 48 
TEMP ts 63 68006400 6 
DOING t= 43 68006500 | @] 
WA OR is AM3 68006600 Raeees 48 
GO TO EXITS 68006700 4 
ENDS & IF "WH" 68006800  @ 
R i 68006900 Be Ao eee eae a ee 5] 
IF NOT OBJ THEN SECURECACBASE+1]1» AC BASE+3]9 ALBASE+4])3 % SOURCE 68007000 6 
IF NOT SRC THEN SECURECALBASE+1],(6236],ACBASE+3)],ALBASE44])3 %0HY68007400 s1 @ 
PMP ts 43 68007200, 54 
PARAM 82 IF SRC OR OB) THEN 1 ELSE 23 nr 68007300 65 
LIBMSGCTR t= PARAM; 68007400 | : |@ 
‘Liem =. TRUER.” Sen e 68007500 : g 


ono ~ ® OO FF WH = 


= 
i=] 


= 


= 
nN 


= 
> 


= = 
a a 


vj 


vata vocuments/inc. 
= 


(a2 


DOING &= @3 68007600 
WANT $3 WAITFOR &= vMCPMSG3 68007700 
0 0 x 3 BOQ a 
END CASE 03 68007900 
Ree eae eer mH E DOE HERR HE HENES ODDO DEE Her oeneeentbesasersecs ses OBO08000 
G x $ m RESULTS OF al 3 ¢ te ceo ae ce 
IF EVENTS£1] NEG 7 THEN & GUARD FILE SUT PRESENT 68908200 
BEGIN 68008300 
WORD t= ew A( RA ABQOUBUOD 
MSGPTR 3% 363 68008500 
GO ERR23 68008600 
ND3 Q 
IF EVENTS(C2).03636) NEQ@ 9 THEN % NUT "LOCK"” FILE 68008800 
BEGIN 68008900 
WORD $2 -ACLBASE+ 68009000 | 
MSGPTR t= 633 68009100 
GO ERR2s 68009200 
_ ENDS Beles Seas Eh isl 
OBJ *= BOOLEANCALBASE+5).(46%1))5 68009400 
SRC t= a cpa eds aoe Ars ks 68009500 
__ACBASE+ : [ROT NAME ——A6B909600 0... ey, Ont eee eee 
ACBASE+4] tx ieraceou: & ages FILE SECONU NAME 68009700 
GO TO SECUR} 68009800 
NL n SeeenAe er 68009900 (Ss enh ih oo 
Megiars- wie Sikes wae se bale A 4 oe OU GEE lot uD Pau da uae lav ulnin ana SEULOUEC 
BEGIN % CASE 2 = RESULTS OF LIBRARY MAINTENANCE 68010100 
WN #4 SECU ae ee BO 02 OOo es a 
BEGIN 689010300 
WORD = ae as 68010400 
. P 68 O500 0 
GO ERR23 68010600 
END3 68010700 
CHECKS 010 ie Riche 
IF ALBASE]*0 THEN [AMi20 ELSE 68010800 
BEGIN 68010810 
IR ALBAS H 3 IMAK?sSACRa 313 Bir eae ID 
PUB t=BCALBASE Je C15: 1233 Punt sACACeAcE TCL NG3 1))3 68010830 
UNLK&SSBCACBASEJ.£17911)3 68010840 
(j () K RT3 64 A530 es PN he Be 
END} 68010860 
GO TO EXITS. 68010900 
ace BS a ts ae ee BORA OO eae 
END ALL CASES; 68011100 
ERR1: 68911200 
RRSw t= ACTJ3 = eh Si OO sO ee Se ee ee TOR OTA BO Oe. eats See 
MSGPTR t# 83 68011400 
IAM t= VERROR3 . 68011500 
O10 £ x St ht ae ee BE TAO Gn te 
ERR2:s 689011700 
LITOUTC"ERR? “eNOCRLF D3 68011800 
TQ ORDeCRLE DS 68011900 0 
GO TO. CHECKS &% CHECK FOR MORE PARAMETERS 68012000 
EXIT: 66012100 
END PROCEDURE LOCKITS 68012200 pease 
a RON HEHE INNA R RMA RRR AR EH EAR ARR REA ER OIO00000 
PRUCEDURE TAPEITCLCWsA)3 BOOLEAN LCWS ARRAY ALOI} 69000100 
RAMSteHaRe eda eSA AEH a RRE HEHE N EE NENAN EAE ERE e eee oe 69000 200 _ = 
BEGIN -69000300 
REAL T»WORD3 69000400 
BOOLEAN SOs 69000500 
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LABEL EXIT; 69000600 
IF st aeledaeeriy THEN GOQERRC"TAPE ",40)3 69000700 
=CONRA OR 1 =BI05 TH LOERK OC" TAP " i pena 
CASE DOING OF 69000900 
BEGIN 69001000 
2 69001100 
BEGIN % CASE C 69001200 
IF FILENAME = 0 THEN GOERRCO"NG FILE", 1)3 69001300 
ACBASE+2) %= ACBASE+1) $= 1005 #% SE PARAMETERS 6000 5600 oo ok ee 
IF T ¢% ACSREGt=sBASEMACBASEJI.FF. NEQ@ CG THEN % PARAMETERS GIVEN 69001500 
BEGIN 69001600 
DO pF Fone: Ser eae cane ae EPR tar ter Wresceersesmeeceeimee = 7°26) Uy dio 0 SanBP ee eee ee ne alee emt PE 
IF CWORDIZALING(SREG)I)« C323) NEQ 0 THEN SCHR. STRING 69001800 
MATCHCWORD C6842] 5"SEQ ") SQ t= TRUE 69001900 
3 OERRCWORD» 8) QO ar ene re re 4 
ELSE IF WORD.£1!2) = 0 THEN ALBASE+1) ts WORD, C21%27) 69002100 
ELSE IF WORD, Cii2) % 3 THEN ALBASE+2J t= WORD.£30418) 69002200 
sek 2 JO2300 oe 
END UNTIL seca LEQ 03 69002400 
IF NOT SQ THEN GOQERRC( “WHAT. ,34)3 69002500 
NDS 69002600 
WORK(QO] t= O3 69002700 
WORKCA) t$@ CLE*SYSTEM)&CREALCFILETYPE&8) 038478193 69002800 
WORK s RCOOF 3 69002900 
WORKC3) &= SOURCEFILE; 69003000 
WORKE7) ts IF 38 THEN AL BASE +14 ELSE O3 % BASE FUR SEQ 3 69003100 
NORKE d NCREM Ok me ere Set AOS BO: eo hen ote ee a 
DISKWRITECESP123 69003300 
RUN1 t= “PAPER "3 69003400 
RAIN gs "CAND m3 4£O 00 00 
ERRSW $= USERCQDEs 69003600 
WANT t= VOISPATCHS 69003700 
END? &% CASE 0 69003900 
POCO H ROH OCCT H EHO H RESET HH EMRE renee eeetoreroeeepnaseseseeenes OIVUK000 
3 \ j f £90 ere 
IF EVENTS(C1] = 1, THEN % EQ OK 699004200 
BEGIN 69004300 
SOUR $= MAKEFN CYS" stb o3 69004400 ss 
GOOOOBY t= FALSE; 69004500 
END3 69004600 
Ste = a U5 a 
WRITEASTERISK s= TRUES 69004800 
% VOID 69004900 
NO} &% CASE co 9905000 
: END ALL CASES 69005100 
EXIT: 69005200 
ND PROCEDUR AP 69005300 eee 
Rew ee ea eka aN kK 71900000 
PROCEDURE CHARGEITC(LCW2A)3 BOOLEAN Lows ARRAY ALO]; 719000100 
Je WW We ae dee We We ie eee tooo ete ie ae ae eee OI I do to iO tt Q00200 
BEGIN 71900300 
% volo 7 74000400 
% VOID 71000500 
LABEL EXIT3 71000600 
REAL T3 71900700 
IF SCHEDULINE THEN GOERRC"CHARGE "240)3 719000750 See 
IF ACSREGI=BASEWACBASEII, FF NEQ 1 THEN 71000800 
es GOERRE"ND” hale 71000900 
Tide LF  ACINGCSREG) I 3) = 0 THEN 71901000 
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wb eomn~x Oo 7 BF wre = 


= 
moo So 
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ns 


az 


DECCUNVCALCSREG).C21:27)) ELSE ALSREG],L6%4e]3 71901100 
CHARGE 8= TIMECONVCOPTIME pFALSE)s 71001150 
GO We AL *)])3 Q HQ cee 
LA@GONTIME t= TIMECI)3 71901170 
CHARGE te T3 719001180 
OTOTIsE TIME SeP TIME Ss INP R:303 P4900 *\(0 Geer Me eee 
LOGONCLCWSAL*I)5 71001200 
WRITEASTERISK t= TRUES 71001300 
AM = O03 pee N a apt en! 
EXIT 71001500 
END CHARGEIT3 71901600 
RERREAEESAESEEASERAAL EERE AER LAERCRALOERARLE EE TELEELEL ITT T TT 72000000 
PROCENDURE SCHEDULECLCWsA)3 BOOLEAN LCwW; ARRAY ACO]3 72000100 
BF ede te ee ete II TO IT Ok kk kok 72000200 
REGIA OO00300 on 
LABEL ERR» EXIT} 72000400 
BOOLEAN AFTER» LIB» TOIT. 72900500 
CASE DOING CF 729000700 
BEGIN % CASES, 72000800 
___BEGIN PB OU OO On oe a a 
IF TPCOUNT NE® O THEN % NEEG MERGE. 72001000 
BEGIN 72001100 
a nwa ft, NOCR pee ee eS Sort 
TEMPt=13 WANTS=VUPDATES 72001300 
END ELSE 72001400 
CLEARCWORKL01929)3 h 72001600 
WORK(1] 1S LURVMCPMSG(3384187.93 © 72001700 
AOR ESMik 101800 Se ac OE es Sr eee el we ets 
WORKE4)8=WORK(6) 8 =USERKCODES 72001900 
WORKE7) 25 MAKEFN("9OS"oLL Ds 72002000 
WORK s=CHAR 2 002050 
PCTRALSREG§=BASE=ACBASEII.FF3 72902100 
WHILE I LSS PC OO 4 PICK UP ALL PARAMETERS.» | 72002200 
: y 00 Qe en S, 
INCCI)3 WORD?SACINCCOREG) I; 72002400 
TYPE := JF wWORD,C2:4] = 0 THEN O & N OR =N, 72902500 
5 F_wORD $2) = 3 T & +N 72002600 oat etoh et 
ELSE IF wWORD,CL!2] = 1 THEN 2 & SPECIAL CHAR, 72002700 
ELSE 33 % ALPHA WORD, 72002800 
ASE TYPE 0 2002900 = 
BEGIN 729003000 
BEGIN % PARAM IS Nos @=N 72003100 
IF NOT AFTER THEN DERKRCRECCONVCABS CW B ae 44 9-20 0 
IF WORD LSS 800 OR WORD GTR 2400 GR 72003300 
BECCONVCWORD)6(3646) GTR 5 THEN GOERRC"TIME "2419372003400 
WORKES) %& wORDS AFTER $= FALSES 72903500 Beet 
END N CASES 72903600 
GOERR(CDECCONVC WORD) 2605 % PARAM IS +N 72903700 
BEGIN % CASE 2 CSPECTAL CHAR) 72003800 | 
IF CLIBteCWORDeCF="/")) AND TOIT THEN GOERRC"NO USER",39)372003900 
END CASE 23 729004000 
BEGIN j Ee x) i " PH fA ORD J eee ape a eth 
WORD &8 WORD,(6:42]3 729004200 
MATCHCWORDs "TQ ") AFTERtSLIBtSNOT CTOIT&=TRUE) 72004300 
004400 sane a 
MATCHCWORDs"AFTER ") -LIBteTOITI=NOT CAFTERtS TRUE). 72004500 
SBS i BPC ti CERES me) a ber ty 72004600 
MATCHCWORDse "CHARGE )- 729048620 
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BEGIN INCC1)3 WORUSSALINCC(SREG)); 72004640 
WORKC 9) 3831F WORD « (3:3) GTR O THEN & ALPHA 72004645 
6 b ON WORD on 1 ND OO46 See ee 
ELSE % ; 72004660 
IF TOIT THEN WORKE3] %= wORD : 72004700 
ELSE If UTR THEN WORKEA)] $5 -wORD LLU OOM BOD 
ELSE WORKE5)] *= wORUs 72004900 
END CASE 33 7 | 72005000 
a Na a tr he ee eo ee PDO OO nto roe htt ce pee ee re 

END ALL PARAMS3 729005200 

IF WORK(5) = 0 THEN Se eR CNG FILE%s1)3 72005300 


EE St kt POS NOD es 

IF WORK(3].(42%6] a" " Then GOERRCWURKE3)942)3 72005450 
FINDCLL&IAM[E 3384127)» 0*AL BASE] f=WORKE 5) »WORKL 6] USERCOODE 372005500 
— m . * i ae ue . . L2Q0( 5600 


DOING t= 13 


TEMP t= 23 WAITFOR $3 [AM3 72005700 
END IF TPCOUNTS 72905800 
Wty i tl ea a Be, Oy la on 

BEGIN % DOING = 1» RETURN AFTER FIND ON INPUT FILE 72006000 
IF EVENTSLiIJ &SS OC THEN. GUERRCALCBASEJ22)3 &’ DOES NOT EXISTe 72006100 

z SOF R “je # § é : 72006200 oo 
FINDCLL&IAMEC3324127)202ACKASE+1 J, USERCUDE ,USERCODE); 72006300 
DOING t= 23 WAITFOR t= IAM; 72006400 


NO OOTA QO6500 


BEGIN % OOING = 25s RETURN AFTER FING UN UUTPUT FILE. 72006600 
IF EVENTSCLI] GEG O THEN GUERRCALBASE+1)23); 72006700 

Et es arenes " ” OS a ta ee ee ot Bite 72006790... 
EOJMSG $= NOT CONCISEs WRITEASTERISK 3* CONCISE; 72006760 
RUN1 8 # "SCHEDUL"S RUN2 8 "CANDE "3 IAM t= VOISPATCH3 72006800 

EJ aE Y DISP 2006850 
END DOING 23 72006900 
END ALL CASES DOING OF; 72007000 
: ; Q 


BOW te ee te fae te tee tk IO tt ORT TOOK IO REE a EAE EERE EN ERE ET 73900000 


PROCEDURE SCHEDSTATUS (LCWsA)3 BOOLEAN LCWS ARRAY ALO]3 739000100 
Bet we eee weeded eee eee eee eed eee ENE EEN RE ERR EER EEE aS 73000200 _ re cere 
BEGIN 73000300 
REAL T3 73000400 
LA X Q rs tes it Ge teal ne at ene 
LER EEC ULE eT REL OTe CET ee ee ee ee Cre re ores er ate enn 73000600 
REAL STREAM PROCEDURE STMESS(WeNPELSE2)3 VALUE EleE2s 73000700 
& SRORRRPRMO PEP eaebeePenmaransreretaretersassestererssssesnosenese.s (3900800 
BEGIN LOCAL DVS LABEL ERR» SCH»sRUNS EXT» DUNS 73000900 
DItsws CLlisxCI+E13 GO ERR§ GU ERR$ GO SCHS GUL RUNS GO DUNS 73001000 
DSSS8LIT"ABORTED,"5 TALLY%s8s GO EXTS _ 73001010 Nef aeds een 
ODUN§ DSt#5SLIT"OONE. "3 TALLY#254 GO TQ EXTA 73001100 
SCHs DSta1OLIT*SCHEDULED."3 TALL Y#310% GO TO EXTs 739001200 
RUNS DSt#GLIT*RUNNINGC™3 TALLYS=93 OViIEDIG 739001300  — 
DItsLOc E2s OSt=z7FILLs OLssDys ST sstuc E23 73001400 
B8CIF SCH" " THEN SIt=SI+4 ELSE 73001500 
BEGIN NStsCHRs TALLY?sFALLY+is END); (ae RO <0 
DSseLIT™)"% GO TG ExTs 73001700 
ERR& DSIts4LITMERRE "5 STIENs STP eS1+1s OStE7CHRS TALLY# 2123 73001800 
EXT’ STMESS t= TALLY? edt 73901900 
END STREAM PRACEQURE STMESS3 73902000 
CASE DOING OF 73002100 
BEGIN 73002200 2 
BEGIN % CASE 0 73002300 
8 CTIFALSREGPSBASE@ALBASEJ]).FF NEG 1 OR 73002400 
SREG) 383) 3 0 EN RRM NAME, "46 3002500 
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ACSREG] C125) t= OF 73002600 
MATCHCVERBTARBLE(T«CL9OS9II C6242) o"STATUS ™) 73002700 
3 ; SRE i ee 2 af NR te hp POO A BOO ee 
WAITFOR 82 TAMS OBING t= Lf 73002900 
END CASE Q3 ; 73003000 
Kawase ensateeaseseesesroasstsertecasessesssteessssesensasossessensel JO0IL00 | ne in 
BEGIN % CASE 1 73903200 
IF EVENTSC1) LEG 1 THEN 73003300 
Se a a a a ta te et 
MSGPOINTER *3 EVENTS(C1] + 363 73903500 
ENOS 73003600 
ana A HK Ki SF ALSE? RNA Pee nee res 
TE=STMESSCWORKLOIJ*SALSREGIZEVENTSCIJ»DECCONVCEVENTSL2I)))3 73003800 
TWXOUTCLLs WORKCO] >To 4)3 73003900 
AM 3:23 Q Q 0101 0 eeeneeeee 
ENO CASE 13 73004400 
END ALL CASES} 73004200 
XITs_ eed sh Atanas: 
END OF SCHEDSTAT3 73004400 
FI II IOI III TOI I II IOI II IG ttn ee 7G 000060 
PROCENURE LISTFILECL CweA)3 BOOLEAN LCws ARRAY ALO); peek acer POO OO Ot ee, atts anata ert 
Bh ete Te I III IOI it iio hii ite 74000200 
BEGIN 74000300 
DEF INE a 7HO000400 
UNK = SPECS.Cf 1i1]#, BAS = SPECS,L C21)%» ALG = SPECS,£ 3%1)4, 74000500 
COB = SPECS,£C 4t1)@- FTIR = SPECS.C Siijs#, TSP = SPECS,C 624) #» 74000600 
XAL = SPECS,{ 7tij#, SEQ = SPECS,£ Bil)#s» DaT = SPECS,£ Otij#s 74000700 00 
LOK = SPECS.C1O0%1)%>5 INF = SPECS, Cil&:il#» Cé6s ® SPECS, C1281) #3 74000800 
DEFINE a "74000900 
SRC = SPECS 7sija OBJ = SPECS. C4osi)# KD = SP 453 OdOiooo sees 
UNL = SPECS,C44til#» SUL = SPECS,C43ti]#, PUB = SPECS, C428 1183 74001100 
BOOLEAN FROMs TOOs SPECS» LITERAL» mAVELITERAL» HAVEQUTPUT» 74001200 
HAV Kt Loney ee eee eee eres si ela chieaeian 
REAL I» PC» WORDs NAMECOUNTs TYPES 74001400 
LABEL RUNITs» GETOBVECT» ERR» EXIT; 74001500 
% 74002900 
STREAM PROCEDURE HEADINGCWORK)S 74003000 
BERGEN TED AOR TORR SAN EES DEK AEG (UE MOOREG SOOT EOC N 6 ONG NEO Re oe ee eae eer a0 sTC0 
BEGIN PM Oe OO ate Scie ategeaeia ae eo Sain we 
DI8SWwORKS OStS39L IT NAME TYPE RECS SEGS CREATED a 74003300 
Gas ev it Ty ACCESSED: wW/R W/B SF LOCKD BY "3 74003400 
NOD STREAM PR DURE HEADINGS : 25S 3 0 ee 
Ok OS ee ee 0 
STREAM PROCEDURE OUTFORMAT 74003700 


(WORK »FILNAMSFIL TYP» RECS» SEGS p COATS AUATPWER WE s pOAVFACPSECNAMPAFLG)S ==. 74003800 2° anne 


conocer teeseeeeseeeee seg teenessestennssssensetescsesesseetsecesesen ss? 4003900 


VALUE ee RECS sSEGS» CDAT »ADAT, WPReWPBsSAVE AC »SECNAMSAFLGS 74004900 
OC A: ' ore 01 0 [ERnaes Seen ee eee na eee ee eee 
ST eWORIG S1?=L0¢ FILNAM; 74904200 
2CST8sSIe15 OSta7CHRS DSs=LIT" “")5 & FILE NAME AND TYPE 74004300 
O$!25) ; DVit=spnT3 SO1"55 OSite t= AND 3 ' 4OQ oe 
OS:s2LIT" *3 OStszeBcHR$ 2% CREATION DATE 74004500 
OSss3LIT" "3 AFLGCOTts01933 DSssa3LIT™ w« ");3 74004600 
3 e es = 
3COS3=S5DEC3 DVt=DL3 DI:=Ol"53 DSi SQFILLS DIts0V); 74004800 
SyteSl+13 OSss2_ite "5 DS ts? CHR DSt=s9LIT™ "s & SECURITY NAME 74004900 
ENO REAM PADS DURE © ORMA tee OO5000 ss _ 
Revveceetntenee ee tng ses ode cess Ase eaa red ded s eyeees Cad ert shes vo nesses s 274005100 
ce PRINTITCRILNAMSFILTYP JA VALUE PILNAMSFILTYPSREAL FILNAMsFIL TYP 374005200 
; oa a GE ee : ae 4QQ ore 
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ad 7 : G 
BEGIN REAL Is SECNAMS LABEL SUMM3 74005400 
@ SECNAM t= IF BOOLEANCWORK[5],C1?11) THEN WORKES I, (6t42] % LOCKED 74005500 @ 
WORK 7 AND WORKI[ 6 HE Nf A J 
ELSE IF WORK(S #12 AND HORKE6Je1z THEN "UNLOCKD®" 74005610 : 
@ ELSE " "y 74005620 |@ 
AR 210 : ’ Di WORK SO THEA " bi OOS700....-s 3 
SUMM3 74005710 ‘ 
] QUTFORMATCLOFILNAMSFILTYPs (WORKE7I +1) 9 (CT*10)XWORKEBI)» 74005800 |@ 
® sf a \ a OR as @ . QA \ Y R a elLileilej]), = =7agodseono.... SR atte tor te eek na eS A 5 
WORKCOD,CAS14I+WORKCO),C15215J+WORKE9],C2210)*SECNAM/FALSE)3 74006000. f 
@ TWXOUTCLLALCOI> F294)3 740061400 |@ 
END PROCEDURE PRINTITZ 74006200. 8 
Beene resem aro r eter erate one eee esate tana e Dearne reneeenereserrerresnat 74006300 ei 
ey REAL STREAM PROCEDURE CHK(FIELO)# VALUE FIELD3 74006400 /@ 
0 12) 
ure Di) EE ATTN 
BEGIN % COUNT NUMBER OF BITS ON IN FIELD 74006600 9 
@ |: SY#sLOC FIELOS S1tsS14+53 74006700 @ 
__1ACIF SB THEN TALLYSSTALLY4+i3 SKIP SB)s BOD sits i. 
CHKI=TALLY3 74006900 ba 
er END STREAM PROCEDURE CHK3 74007000 \@ 
% gS UO e190 ae ee 8 
BOOLEAN STREAM PROCEDURE MASKCBIT)# VALUE BIT3 74007110 bad 
er BEGIN 74007420 1 @ 
NIssLOC MA KIP DB)? DSt= ; PEPE RTMRIETNY ci” 61 os EE OR a Ee 7 
R END MASK} 74007440 4 
@» Be NGG S900 WA WG RG WE e 64S Rw GOREN EL LGR WE ESAT UCSD STH Aaa eTHOUTISO 21@ 
2 ASE DOING OF mE MOOP BOG 26, bk. dah Sus heats AN te el as ten ing he i Se te St 
2 BEGIN 74007300 2 
@ - BEGIN % CASE 0 = SYNTAX ANALYSIS 74007400 2 @ 
H AB D M és Taoo7aio .._.... Sy alt 3 Ges fiat oa I 
ps PC t= COMMONCELLS & TRANSFERRED FROM PROCEDURE “"LISTIT™ 74007500 a 
@ » CLEARCWORKs29)3 % ZERO UuT WORK ARRAY 74007600 21 @ 
WORKC2]s=wORK( 4) s=uSERCUDES wORKLOJsa"TELE el DOT TO Mt eh bait ie capes lige sen pe ee oe eee eR 30 
NAMECOUNT t© 203 % POINTER FOR FILE NAMES 74007800 31 
® WHILE I LSS PC DO 74007900 3] @ 
B N Fas "9 4°21 01 01 6 Ie ae oT CR Ie eee eee eT 
Its] +13 74008100 
} IF (WORD2SACSREG?SSREG41))e(122)]=1 THEN 74008200 @ 
F_WORDS"/" THEN WGRDi=E"FRUM " 4(3845:3]3 74008300 fe 
IF WORD,03%3)%0 THEN GO ERR ELSE wORD.C1:5]2=03 74008400 2 
@ MATCHCWORD*"LITERAL") 74008500 4@ 
IF HAVELITERAL THEN GO ERR ELSE LITERAL S=TRUE 74008600 | 3s 
ELSE MATCHCWORDs"TO «5 74008700 a 
@ IF HAVEQUTPUT THEN GO ERK ELSE TOOrsTRuE 74008800 |/@ 
SE MA RD,"FROM y QO een Se tise Bs 
IF HAVEUSER THEN GO ERR ELSE FROMt=TRUE 74009000 4 
@ ELSE IF To0 THEN 74009100 4@ 
RR 4009200 
BEGIN errr ere TOUtSNOTCHAVEQUTPUT?#TRUE)$ END 74009300 ‘6 
© ELSE IF FROM THEN. 74009400 | @ 
HA O ERR ELSE Q09500 " 
BEGIN WORKIT4]#SWORD3 PREM USAT CHAVEUSER Fe TRUED? END 74009600 
i ELSE IF LITERAL THEN 74009700 iad 
a. 0 ERR 009800 5] 
; BEGIN WORKES]t=WORDS LITERAG1@NOTCHAVELIVERALI@TRUE)? END 74009900 
@r ELSE MATCHCWORDs"PRINTER") 74010000 @ 
in F_HAVEQUTP N GQ ERR ELS 74010400 in 
P BEGIN WORKC6]3eWORDS HAVEOUTPUT t=TRUES END 74010200 . a 
alt ELSE IF Pee ee Re Beer a7 Fao 229 eRESNRO bAGL ETC )> 18) *¢ 0 THEN74010300 |{@ 
x SOR MASK *DOXREA R rae 400 w, 
@ @ @ 
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@ ] 
ELSE % ASSUME IT IS A FILE NAME 74011900 
r BEGIN 74012000  ] 
F (NAMECOUNT!I SNA OUNT+ : THEN DERRC"TOOMANY"» 30 012100 eaeein. 
- WORKENAMECOUNT] t= WORDS % SAVE FILE NAME 74012200 
; ae ; 74012300 
1am & : ia iY 0) 0 ta Sh ter, Soden a eet 
4 IF FROM THEN GCERRC"FROM “9823 74012500 
& : IF Too THEN GCERR( "Ta Needs 74012600 
RA HEN GOER AL» 8)3 SPUOVO PO Ore oe. PS 
1 IF CHKCSPECS,(1812)) GTR 1 THEN GOERRC"FILTYPE"»31)3 74012800 
@ : IF CHK(SPECS,(42341) GTR 1 THEN GOERRCNSECURTY" + 8)5 74912900 
: olat i © a mc. NN a Gu i ORI "shs PHO OOO asda nee 
No TEMP $= 7} 740131400 
eo" IF CNAMECOUNTSSNAMECUUNT#21) = O THEN & UNE FILENAME SPECIFIED 74013200 
na IF (PREVR A R % ENOUGH RQOM IN STA Q 
: BEGIN % LET CANDE DQ THE I/O 740134000 2~—‘C:™S _ 
@* ACBASE) t= 73 % Loop COUNTER . 74013500 
F _ +1] te FILE SPOON GROG e-toc 
hs ALBASE+7] t= WORKL4]3 % SAVE USERNAME 74013700 a 
e”’ FINDCLURLAME 321429719 0/WURKLZ 1] +WORKL4I/USERC ODED} % SRC. 74013800 
= : : 74013900... .. 
no DOING t= 23 Ficiione — 
e* WAITFOR t= YAM3”— . 74014100 
af = a t O.ExIT3 a FAO AION 
3 0 
@ WORKL3) &= REAL CSPECS);3 Corian 
WORKE7) t® NAMECOUATS 74014500 | 
P DISKWRITECESP1)3 74014600, © 
@ IF HAVEQUTPUT THEN % OUTPUT MEDIA SPECIFIED 74044700 
p7 MATCHCWORK[6)»"PRINTER") ELS 014800 
ps MATCHCWORKCOJ>"TELETYP") ELSE 74014900 Sa aC 
@ » BEGIN % DISK FILE NAME 74015000 
Bo ND Rg IAM H WURK (Ole TRCODE eUSERCOD 74015400 an Sl ES a te 
e| ACBASE4#4)] &= aORREaGs Z SAVE CUTPUT FILE NAME © 74015200 
DOING t= 43 74015300 
| GO TO EXITS 74015500 
¥ ENDS ; | re 74015600 
a ry \ a - 
RINTER OB ee SP I Oe 
e- END} % CASE 6 74015800 
> ES gry Tce eal Han 8 vite os 428 sac nape vig ee ease bey eeaansuadiae 74015900 
: : s R > OND __ 74016000 
e|: IF EVENTSC1) GEQ@ C THEN GOERRGALUASE+1}+4)} % ALREADY PRESENT 74016100 
RUNIT Gas 74016200 
3 IAM t= VDISPATCHS 74016400 
@ | EOJMSG ts NOT CONCISES 74016500 
WRITEASTERISK #8 74016600 
GO TO EXIT; 74016700. 
@ i : END3 % CASE 1 74016800 
e ry ; g iJ 4 690 Q Ft a 
BEGIN % CASE 2 © SEARCH FOR FILE NAME 74017000 
Of I t= ALBASE] t= ALBASE) = 23 . 74017100 
1 ACBASE+ = EVENTSCI73 ACBASE+] +1 = EVENTSL L8ti5)5 & HOR ADRS.»74017200 
el. IF I GTR 3 THEN ® WAIT FOR OBJECT FILE RESULT 74017300 Se aan 7 
BEGIN . 74017400 
AM OO 
i GO TO ExIT} 74017600, —<“‘i‘;O;+O*#W 
rd] a ENDS a 74017700 
: AC BASE 0178 
@ 


@ @ 
TIMEOFDAYCWORKE 2) 5 TIMECONVCTIMEC 1)» TRUE) )3 74017900 
@ WORKCO) ¢= DATES WORKE1) t= ALBADE+7]3 BLANKCWORKC1))3 % USERNAME 74018000 a 
K ; LO fot oa tae ee, 
f HEADINGCWORK)S TWXOUTCLL»WORKLO)»7201)3 74018200 3 
@ |: WRITEASTERISK t= TRUES | 74048300 1@ 
3 IF ACBASE+ LEQ 0 THEN GO GETOBVECT3 OURCE VERSION NOT ON DISK 74036400 3 
4 LLDISKREAD t= ACBASE+6]3 74018500 4 
@|: WANT $= VDISKREAD3 74018600 |@ 
. ee ee ee i es PO OG. Pigott lace Dacha wine PE Gi raat yt ea . 

7 GO EXIT; 74018800 ? 
@: ENDS % CASE 2 74038900 1@ 
: oat esoasessonsanssensn en (4919000. Faeroe Red eters “see mam at Ate et as nen ne 9 
nd BEGIN % CASE 3 = SOURCE FILE HEADER IN CURE 74019100 ' 
er IF CINSWORK(4I,(3626]3 GTR NUMUFIYPES THEN 11203 74019200 /@ 
2 PRIN et PO LO 30 Oo ote et ei 

IF ALBASE*3) LEQ O THEN’ 74019400 
@ |. BEGIN 74019500 @ 
5 AM ts © O TO FXIT3 Raa ee a OP ORO Asm te 1s 
q ENDS 74019700 
er GETOBJECT! 74019800 \@ 
gs DISKREAD t= ALBASF4+4])3. wee OO Oe St ade a a ee ba 
a WANT %= VDISKREAD3 74020000 1@ 
 ] zi DOING t= 43 74020400 E 
0 0 X Se PAO 2-2 0 Oe oe etn i en ee a 
a ENDS % CASE 3 74020300 si 
Op eee eT eS LISS t ETL taste eset hese set et es state sense ene eecneeeeeeeeeeeees 74020400 1@ 
24 BR = (U8 f\ Ok << ___.74020500_ els ib reo hase I Nk I ne ths Sale eS 24 
IF CIS=WORK(4]eL3626)) GTR NUMOFTYPES THEN I t= G3 74020600 
"F I ts "OBUC >” @ TYPETABLECII(30#016)3 74020700 | @ 
iS p © O20800 2 
ne TAN t= 0; 74020900 P 
= @ GO TO EXITS 74021000 21@ 
sp ND SY 5-0) 1 0 © reese la ee ee i 
See END ALL CASES} ; 74021200 ‘le 
sO; ERR: ERRSW t= ACSREGJ3 MSGPTR t= 65 IAM t= VERRORS 74021300 : 32 
i PO STOO Stati ee ee ee a 
8 END PROCEDURE LISTFILES} 74021500 
@ eee eee eee ee ee ee ee eee eee ee ee ee ere nn 75000000 1@ 
36 PROCEDURE DA WeAds BOLEA Cws ARRAY ALO] __75000100 ss ba 
p ANNES O HERE AEA A RAEN RHA EHS ESHA EES R ESHA EEUR EAHA RUNARHERARARS 75000200 cH 
@ BEGIN 75000300 @ 
: AB UM 786000350 : S 
CASE DOING oF 75000400 “0 
e@ BEGIN 75000500 «|@ 
_IF_ TPcO 5000 Rae ete pase Oo Shee pe Pala oe Tere aa 
BEGIN &% CASE 0 75000700 4 
@ WORKLO] = POGHOUSELLL] t= 03 © 75000800 @ 
WORKE1) 's (LL+SYSTEMIBRCFILETYPE=6)(3%47314) 75000900, i 
&RCMONITORBITIC924721)3 75000910 ‘6 
e WORKE2$=USERCODES WORKC4)?=USERLUC3 75001000 1 8) 
WORKL3] t= RCEFILE3 75001400 49 
MOVE C16,WURDS »CTRANDBASELO]sWORKL5))3 75001200 4s 
@: ERRSW tm USERCODES 75001300 co @ 
RUN $3 "LIST "3. RUN2 $2 "CANDE "a 75001400 51 
: WANT t© VCLCSEWORATABLES UOQING t= 13 75001500 5 
@ | DISKWRITECESP1)3 75001600 1 ®@ 
P END CASE 03 75001700 54 
BEGIN & CASE 1 75001800 59 
@ fs WANT 3% WOISPATCH} DOING t# 23 ERRSW ts USERCODES 75001900 1 
ey UPDATEBIT #= 13 % MARK UPDATE IN PROGRESS 75001910 3 
 ] 
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@ 6 
END CASE 13 75002000 
@ BEGIN % CASE 2 75002100 
_IF EVENTS(1) = 1 THEN % FON OK 2 5002200 eet 
1 BEGIN 75002210 
@ SQURCEFILE t*# MAKEFNC"LS",LL)3 75002220 
3 sag a a OWNER LICK PCM Cony on a a ee SOO 2800! ee a 
4 END3 75002310 
@ |: IAM?=03 IF BREAKORWRY AND NOT DUGLICENSE THEN LINECLEAR(LCWsAL¥))3 75002320 
6 AcE ROR 0 a a Sp RS ta Rae PO OO es a 
7 END ALL CASES. 75002500 
@: END CLEANWORKFILES | 75002600 
: Later eet keh eee te ee RENEW EERE KEANE RENAE RARER ERK ry ae ee 
10 REAL PROCEDURE SPECSCAN 76000100 
@ | OTAU TOAD Lee UG AE VST ceane hong FTOG*»EADRS)> 76000110 
u ADK SOO00200 
: REAL TADREOAONE SIZ: VSi2E MEDIC IGG: EADRS3 76000300 
eo” ARRAY VOCABLOW3 76000310 
rs 21 ea ae ea ee eer ee a eee aS ee I: AES 070 1 ee 
je LABEL L3 76000330 
eo,” REAL STREAM PROCEDURE SPCSCAN | 76000340 
18 Hef TOG Bey ee 21 0Y of 0s C-1 oe 
es VALUE VSIZEsFTGG*EADRS} . 76000360 
@ ” BEGIN LOCAL TsSveDVsCOMAS LABEL NEXT*LETTER, NUMBReF IIL, EXITS 76000400 
: OMME | P AL SCANNER FOR "FINO/REPLACE" INSTRUCTIONS, = ss 7HN0NSOO. 
p2 RETURNS A VALUE € TO SPECSCAN ) OF8 76000600 
OF 1 = "INSTRUCTION" 76000700 
Ps gr a Aa og a 
P SEQUENCE NUMBER» 76000900 
@ z ; = SEQUENCE NUMBER FOLLOWED BY "=" ¢ SEQUENGE RANGE )» 76001000 
27 = ND Oo 7 ORD bk H ONTINUATLON HAR A ih “at ROO 44 OO oe oi ee ee 
a 6 = END OF STATEMENT _ 76001200 
@ F: 7 = FILE NAME | x | 76001210 
‘ O= ERROR (MISSING STRING DELIMETER OR STRING TOG NG 76001300 
11= ERROR (FIND/REPLACE "INSTRUCTION" TOO LONG) 76001400 
@ | 122 ERROR CINE EGET EACE “INSTRUCTION” WOT RECOGNIZED) 76001500 
p = ROK 8 N NIM R EK UO oN Net ts Se et ee ee PAO OA O Os. ot ee 
p 14=MISSING FILE. NAME 76001610 
or POSITION OF “INSTRUCTION” RETURNEU TO "WHICH" 76001700 
ia =" " (S160 8 101 © kangen ean Oe ee ee 
a 1 = "REPLACE" | 76001900 
°F 2 = "FIRST" 76002000 
= “LITERAL” 7600 ee eee 
an "WITH" 76002200 
e: = "ARROW" . 76002300 
ee ee BR Sec 2S Rah ga Rm eh aire ae Pe toe st ears PO ME Pocrns, as atten eae esac a 
43 7 = “END” 76002500 . 
@ |: 8 = "SEQUENCE" ; 76002600 
_ 76002700 asin 7 
76002710 
@ | 1 76002720 
END OF COMMENTS ae POUO 2B OO 6 ow pany nce Ney 
SIT*=TADR? SreeSt+53 SlteScC3 TALLY 8363 COMASSTALLY} 76002900 
@ re NEXTs IF SCa” * THEN BEGIN SlseSl#1s GO NEXTS ENUS & SKIP OVER BLANKS 76003000 
51 IF SCSLEFTARROW THEN % END OF @BECORD 76003100 = _ 
_ pa BEGIN 76003200 
@ SVtsSI3 SItsLOC Svs S[%sSI+55 76003210 
P DVe=Ols OLtslo AORS3 DItsp01+53 76003220 < ee eae eR 
IF 3 S$CsDC THEN % "END OF RECORD — 76003230 
@ BEGIN : 76003240 
a TALLY#BCOMAS SPCSCANESTALLYS GO-TO EXIT? _ cee 76003250 
@ 


oe MN no FF WY = 
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4 4 0 : n n SS eS 3 ~ 3 3 


ee @ 
END3 76003260 
Srrt=SVvs DI?=DV3 76003270 e 
NO 3 46003280 cannaneenanennenenens Te eT 
IF SC," THEN ¥ GCULO BE A CONTINUATION CHARACTER 76003300 . 
BEGIN TALLY #953 COMATSTALLY} SI:sS14+13 GO TO NEXT END; 76003400 1@ 
363 OMA Sa TA % NO A 0 i NIA ON —PBOORSOO.UU 7 
FTOG(JUMP OUT TO FIILIs & JUMP TU FILENAME SCANNER 76003550 4 
IF SCBALPHA THEN % COULD BE ALPHAUETs DIGIT UR "QmaRK" 76003600 |@ 
: N nq R3 pea PAO TOO cu 6 ss oh pet 6 
If SC GTR "9" TREN ELSE GO TO NUMBR3 76003800 ) 
END IF ALPHAS 76003900 : 
tote tet e eee ee ee-e eee yo ee-e  DOOKOND... sotees seamen tens | thu =. eter eh amet mene renee : 
* MUST BE A DELIMITER 76004100 ie 
DIss_LOC Ts NItSDI+73 VSt=CHRs & SAVE THE DELIMETER 76004200 " 
_— 9ViIsSl} Sltsloc Sve. = s DSS=wNSs | i 76004300 
Stt1eSv3 TALLY#2103 SPCSCANS2TALLY3 TALLY!=03 | 76004400 le 
O3CIF SCSLEFTARROW THEN 76004500 ba 
Na ad a tec eh ta SPOONS thant Tint 5 
SV8sSIs SI2=LOC SVs SLt=S1l+53 DItsLUc EADRSS OLt=DI +5; 76004520 
IF 3SC=O0c THEN JUMP OUT TU EXIT ELSE Syi=Svi 76004530 /@ 
2a 22 195) en a ee Ba ee OE Fc wn igh bea a gl oe Hey 
IF SC#T THEN JUMP CUTS % 2ND DELIMITER 76004600 is 
TALLYS2TALLY4135 SI&sSl41)3 76004700 21 @ 
3 : 1 saa ea ete ae er SEE ea Pree OR ee eee o 
BEGIN TALLY2=103 SPCSCANt=TALLY# GO EXITS ENO} 76004900 ‘ e 
Sls=zSil+1s SveixSi3 2% SKIP OVER 2n0 _VELIMITERs SAVE ADDRESS 76005000 ae 
STALLYS SreslOe Ts Drsssi75 DSiennsS; 2 SIZE UU BY Sf <3 OG Ki WG 1 Oy ene a ae I en lrg 24 
SIss_oc Svs DL isiapal DSt=WDSs % NEXT ADDRESS 76005200 25 
TALLY!8323 SPCSCANSSTALLYS % CODE FOR OELIMITED STRING 76005300 1 @ 
O TO OOO OO ee : 
POR O ome Hoe eo ee Hen dereasnetEHeearererere teres eeseeneeeseeser eres OUUS500 1@ 
Ler TER! "s SHOULD BE AN "INSTRUCTION" 76005600 ee 
2 Is TALLY3=03 % SAVE STARTING ADDRESS 7005700 Ee Wee so a me 
STreLoc SV3 DI@sOQADRs DSt=WDS3 SIs sSv; 76005800 a 
9CIF SC LEQ "9" THEN ELSE JUMP QUT 76005900 |@ 
F SC=ALPHA THEN ELSE JUMP GUTS SItsSI+y3 TALLYSSTALLY¢1)5 OOO OO ie et 
IF TOGGLE THEN % TGC LONG 76006100 34 
BEGIN TALLY$=113 SPCSCANS=TALLYs GUO EXITS End; 76006200 1@ 
Ovs=SIs SIs=lLOC Dys DIls=IADRs USs=NOSs % NE ADDRES TOCQCO300. ns 36 
TSSTALLY$ S]Tt=LOc 13 S1I3sSI4+73 % SiZE OF PINSERUGT ONT 76006400 ial 
IF Sc LSS "3" THEN & 3 CHARACTERS MINIMUM 76006500 4 @ 
BEGIN TALLY#3393 SPCSCANSSTALLYS GO EXITS END; 76006600 39 
& NOW CHECK INPUT STRING AGAINST VUCABULARY 76006700 
DIs=sVOCAB3 DVisDIs TALLY2=03 76006800 «|@ 
VSIZECSI%=SV3 IF T SC = UC THEN JUMP QUT} 76006900 Ries, Sepa ey oe ee ; 42 
OIssDvs DlaeDr+83 OvewsDIs TALLY tETALLY+493 76007000 - 4 
IF TOGGLE THEN ELSE % NO MATCH 76007100 a@ 
BEGIN TALLY83123 SPCSCANS=TALLYS GO ExITs ENDS _ 76007200 oes oe 4g 
T8=TALLYZ SIt2LOC Ts DItSwHICHs DSt=wpS; 76007300 46 
TALLY?213 SPCSCANTSTALLY: % CODE FOR "INSTRUCTIONS 76007400 |@ 
GO To Ex 6007500. 49 
Berervcccrecserncsrserareeet essere teres eeotevetasereeseseeecesenes  OU07600 be 
NUMBR! % SHOULD BE A SEQUENCE NUMBER 76007700 2 @ 
SVtaSTs SIte_oc SV3 DItsOADRS DStanOS; % STARTING ADDRESS 76007800 81 
STssSvs TALLY?=03 76007900 5 
YCIF SC GTR "9" THEN JUMP QUT 76008000 «9 @ 
IF SC LSS "0" THEN JUMP OUTS SI2SS1+413 TALLYSSTALLY+1)3 76008100 5 
IF TOGGLE THEN ELSE % TOO LONG 76008200 B5 
BEGIN TALLY8#13% SPCSCANtmTALLYS GO EXITs ENDS 76008300 @ 
_TSsTALLY3 O3C1F SQa" " THEN SZTtsSI¢1 ELSE JUMP OUT); 76008400 fs 
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IF Scs"="" THEN % SEQUENCE RANGE SPECIFIED 76008500 
BEGIN SItsSI¢14$ TALLY?=43 ENO ELSE TALLY#e33 76008600 @ 
Re] s ; § 210 3 0 s=IADR; BNDSs & NE X : RESS 76U0Q0K8700 
1 SIs=sLoc Ts DIt"S1Z3 DStsWOSs 4 SIZE OF FIELD 76008800 
; SPCSCANS=TALLYS GO TO EXITS 76008900 
3 % A008905 ieee 
: FIIL: % LOOKING FOR A FILE NAME 76008910 
SVESSTS ST2sLOC SVs OLt=QaDRs ONSt8=nOS3 & START OF STRING , 76008915 
6 s s = e " ’ aerate gt RSs a 
7 IF SCSALPHA THEN ELSE % MISSING FILE NAME 76008925 
BEGIN TALLY#®44s SPCSCANteTALLY? GO TO EXITS ENDS - 76008930 
‘ SCsAL PHA THEN ELSE JUMP OUTS StssSteys TALI YesTAllYay)s 76008935 
by IF Sc="/" THEN % SECOND NAME GIVEN 76008945 
nM BEGIN SI3=SI+43 TALLY2=TALLY+15 % SKIP OVER "/" 76008950 
2 7CIF SC#ALPHA MF p Slt=St+p3 T A . eae 
| _ ENDS 76008965 
5 SVteSI3 STtslLOC SV3 DIS=IADRS OSt=4DS; % NEXT ADDRESS 76008970 
f TesTALLY3 = ; Zi; DStswns3 S1j : | 5, ee 
Ne TALLY%=73 SPCSCAN2=STALLYS GO EXITS % CODE FOR FILE NAME 76008980 
bi ae ; : 76009000 
bes _END STREAM PROCEDURE SPCSCANS aca ee te ee POO OO ct ed Nien cls glee ate ee a! 
ha| SPECSCAN?=SPCSCAN 76009110 
9 CTADRsOADRe SIZe VOCABs VSIZEs WHICH» TOG*EADRS)S 76009120 
: END PROCEDURE SPECSCAN3 ste Aled tare gia poe RUG IO ot ol ae Oe ee 
2 Fo eI OIG III IGICIIDIGIIDISIGIOIDIIGIUIDIIG III II IG OO tei tite? 6009200 
pa PROCEDURE REPLACEITCLCW*STACK)s BOGLEAN LCWS ARRAY STACKLO]3 76009300 
9 fe tee III III IOI III IUIIDICUI II IOIUI IG GUIG Ii iio tite ee 76009800 
; BEGIN 76009500 
pS COMMENT ROUTINE TO CHECK SYNTAX AND PACK INFORMATION INTO STACK, 76009600 
ey 3 ia ry an * O97 O00 oe 
8 STACK(BASE4+1)].(012801) (1 = "FILE " INSTRUCTION RECEIVED) 76009710 
P STACK(BASE4+1),(02:01) (1 = INPUT FILE SPECIFIER ) 76009720 
i + = _, ) Se ne De ea IE 01°” 1) 5 0 SS 
1 STACK(BASE*+1).£@4:01] (1 = "SITE "INSTRUCTION RECELVED) © 76009740 
@ STACKEBASE41],£05301) (1 = “FIND " INSTRUCTION RECEIVED) 76009800 
Ba _STACKEBASE+1) tOl) Ch = "REPLACE * INSTRUCTIOGN RECEIVED 76009900 
i STACK(BASE4+1),(072011 (4 = “FIRST " INSTRUCTICGN RECEIVED) 76010000 
@F STACKEBASE+1].CO8:01) C1 = "LITERAL " INSTRUCTION RECEIVED) 76010100 
B6 ACKC BASES £01 =z "PRINT Mae a RUCTION REC 6010200 
P? STACKCBASE4+1],.£122:01) €1 = "SEQUENCE" INSTRUCTION RECEIVED) 76010300 
@ STACKCBASE*#1],(017801) C1 = "TEXT " INSTRUCTION RECEIVED) 76010400 
ps9 STACK(BASE +] ar0} 1 = REPLACE OR FIND STATEMENT COMPLETE 76030500 = 
+0 STACK(BASE4+1],019201] (1 = FIRST REPLACE INSTRUCTION RECVD) 76010600 
@ STACKCBASE41],020204) ,( STRING CUUNT ) 76010700 
i covers STACKEBASE+ 1) -£24324K 0 TOTAL SICE OF STATEMENT ( NGe OF CHARACTERS 76010800 © 
" 4 CHARACTER CODE PRECEEOR EACH "STRING" InN STACK? 76010900 
‘ 1ST CHARACTER = TYPE OF STRING ( 24 3 OR 4 ) 76011000 
2ND CHARACTER = [F o"FIRST” ONLYs O JTF ALL CC FOR REPLAC 76021100 
; 3RO CHARACTER = 1 IF "LITERAL™ COMPARISCN»s Q IF NOT 76011200 
7 4TH CHARACTER = SIZE ( NO OF CHARACTERS IN STRING ), 76011300 
THE ROUTINE USES MESAGE/CANDE RECUR M A ‘HRU MSGVAL +6 76031400 
’ END OF COMMENTS 76011500 
wi DEFINE WROD = STACKEBASE+1)] Hs 76011600 
! NG = WAD 0120 7600114610 _ 
Bf INFIL = WRD,CO2:01) #> 76011620 
P OUTFIL = WRO.LO3:01) #, 76011630 
5 SITE = WRO.fO4:01) # 76011640 
BS FND = WRD,CO5801] #, | 76011700 
a REP = WRO,CO6!01) #>» ‘ 76011800 
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SoG OR 2 5 5 585 5 BR PB 


oon mo oO WR = 


CE? 


LIT = WRD,(08201) #4, 76012000 e 
PRNT 2 WRD,C11:201) &» 76912100 
Q = i @ % 
TEXT « WRD.C 27801] es 76012300 ' 
OK = WROC18101) #, 76012400 7 |@ 
REP = WD 910 i oi ae a es SPOT OR OG. = = k 3 
STRGCNT = WRO,C20:04] #, 769012600 le 
TSIZ = WRO.C24:24) #, 76012700 % 
PREV = STACKCBAS #3 (se Baan eR ety Ss eae on AE OO POA O Otte con ee 6 
ARRAY VOCABLOt18)3 76012900 i 
DEFINE. MSGVAL = 50 #» A = STACK 93 76013000 @ 
Se ae eae i a se BOP OO OS 8 eS ee 
at TADR» DADRs ARQADRSENDADRe TYPE sSléeVSIZswhICHs 76013200 ta 
LABEL EXIT»CASE13 76013300 |@ 
SERBRARERBBARAREERARERERARAAERRERAEE RARE REE ER EERE RELA LLL LE ween 76O0139400 12 
REAL STREAM PROCEDURE ERRVALUECQADR)3 VALUE OADRS 76013500 ba 
Ree eee EEE EE EEE RN EEE NE kk 7 6019600 @ 
__BEGIN & EXTRACT STRING FOR FRROR MESSAGE HOUT OO 15 
STssQADRs DI t=lLOG ERRVALVES OSssBLIT"O ") Dl s20I "7; 76013800 bi 
7CIF SC=ALPHA THEN DS#=CHR ELSE JUMP QUT); 76013900 |@ 
END STREAM PROCEDURE ERRVALUES 04000 bey 
Bie ke tk sink to ii iii ei Ta IOI TR i I OO ii ik kik kiiek te 76014100 Ng 
REAL STREAM PROCEDURE. CNVERTCOADRsSIZ)4 VALUE GAUR»sSIZ3 76014200 od @ 
Beet ee eee eee etee eee ewe tae tee ete eee eee thea keke eee kee ke ee RRI-OOLGION UU vee at 
BEGIN SI%sQADRs DIt=LoC CNVERTS DSt=512 OCT; 76014400 
END STREAM PROCEDURE CNVERTS 76014500 23@ 
ERAESAERHEASEREMANSERNAHENANE NANA R MARAE KARE RARE REAR NH EERE HET OOLUOOD gi le ti tee a Si eee ? 
STREAM PROCEDURE CLEARSTACK(STACKs T9EZ33 VALUE TS1Z3 76014700 o 
Ba III IOI I RII III III Oi Ita ton kiloh ied i tnn ce 726014800 | @ 
BEGIN 3 RO Oo : ACK TO AVOID Po AG RROR BODA OOD! ayo rth el te ee ie hs 2 
LOCAL T1»T23 76015000 10 
STtsLO0C TSIZs SytsSz+63 76015100 es 
DJs=LOC Tis DJteNI +75 DS*t=CHRs DIsSLOC T2s Plt=Dl +73 nStscHRs 76035200 30 
OIssSTACKS & SHOULD POINT TO STACKEBASE+2} 76015300 ca 
Maa ard T2CDOStaL1T"0")3 76015400 1 @ 
NO REA DUR ARSTA 76015500 a 
Saaeauueapasesaaceuanee ec: ou oa scenes soe ee cee 4 
STREAM PROCEDURE SETL(L* ARGADRS»ENDAURS)3 76015700 2] @ 
Bw ee te oe ie tek ae ee oe ee ie Ak ee ie eee ee ek ea ii ci work kee tee 76015800 36 
BEGIN LOCAL Sv3 76015900 fal 
OIpsl3 DSteALIT"9"$ DSt= LIT LEFTARRONS | 76016000 4@ 
NS iz "Os OSes wy 6016010 2 
DOSt=7L ITO; DSt=LIT Ws; : 76016020 1@ 
OSt=7LIT"O"S DStengT "<3 76016030 = 
OS 2s "oO"; DNSts Ko" sient el Pe ee LOO PG OUO... fot cele ee. ne 
DSts7LIT#OT3 OStau rt "<3 76016050 hi e 
DSts7LIT*O%; DStaLyT ta"; — 769016060 he 
z 3 Slraetoc DI1rzENDADR “DSsswos 6016100 Mies dete 45 
STesSvV5 SlteST+s3 SveseSys SITt=aLuc ov; O1t =AROAURS; DSt=W0S; 76016200 49 
END STREAM PROCEDURE SETL3 76016300 |W 
4 (RA RRERAABRRRERARERESE ROR ERE? WKN RH KKK KKK ARKKEEKKEKKEKKEKETAH KR 60 0 WO = = 48 
STREAM PROCEDURE SAWVEITCSTACKsULDSIZ*OADRsADDSI Ze TYPE sNEWSIZ)3 76016500 ag 
Pacha aan onc reer Center oe sy @ 
OLD : OReADOSI 2 PE » Ni} Zi 76016700 51 
COMMENT SAVE STRING AND PREFIX IN STACKS 76016800 a 
BEGIN LOCAL Ti»T2sLT3 76016900 «| @ 
SJtzLO0C OLOSIZs S[t=Sl+6s % CHARACTERS TO SKIP UVER 769017000 cee 
Olt*w_Loc T13 DItadle73 OSteCHR3 O1'sLoc T23 DIF sO +73 an here 76917100 5s 
OI tsSTACKs DIseOl e163 % SIP OVER 1ST 2 WORDS 76017200 {@ 
DItaOl+32)3). DUPanr+T2s & SKIP OVER PR JUS. STRINGS 760 00 5 
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@ @ 
SIs=LOC TYPES SItsSy+73 DStSCHRS & STRING TYPE ( 29304 OR 7) 76017400 
) STt=STACK$ SIssS1493 76017500 @ 
S of .. H - a \ |) 5 = 4 te Se "; H = " Oo" 5 y " " 60 H00 Ee en LA) Se, SENS oe 
1 LTtsDI3 SKIP $83 IF SB THEN DS?sL17"1" ELSE DSbeLIT"ons % TCITERRC® 76017700 
@ |: StIssLOC ADDSIZ3 SItsSI+73 pee % SIZE OF STRING 76017800 
3 SItsOADR$ OSteAND R , SFER RIN 6017900 ss ” 
4 SIs2L0C NEWSIZ3 SltzSl+q3 DIt=STACK} Dlisyl+12s 05324 CHR3 76018000 
@; * CHECK FOR ALL BLANKS IN TYPE 1 STRINGS 76018010 
6 SItstO P s Pb teas G0O1L80270 see Ae Bh, 
’ BEGIN SI#sOaOR$ ADOSIZ¢IF Sc” " THEN SItsSI+1 ELSE JUMP OUT); 76018030 
@: IF TOGGLE THEN % ALL BLANKSs MUST BE IN "LITERAL" MODE 76018040 
9 BEGIN DIteLTs OS2SLIT"i"s ENDS OKO 
No END3 76018060 
eo. END STREAM PROCEDURE SAVEITS 76018100 
Nel ecantrudccn dena Ste lft CS IIIT OI TOI IIIT OI III SOI tO tot tok «76018200. 
n STREAM PROCEDURE SETVOCABC(VOCAB)3 76018300 
e« Reeth kee ekehek het ke eke ee ee a ee ee ee eee 76018400 
6 BEGIN DItsVOCABS NSte3217T"FIND REPLACE FIRST LITERAL "3 7ediasoo.....-—srsd««ss—sidwsaswdndn 
he OSts48LIT"WITH ARRUW PRINT END SEQUENCETEXT "5 76018600 
e" OSt16LITMFILE SITE "3 76018610 
8 Ys id 2 er * | Oe = Fe cod eo * ee ct 2 RS ee 47% > P-1 s e  c na r 
9 END STREAM PROCEOURE SETVOCAB3 76018700 
@ . iGO I III ER IIE III ia i Titi iio koi ane ie te 76018800 
A DOING O Sr Sorc a ss i 3 eer BO Oe OO et Sct eae 
p2 BEGIN 76019200 
@» BEGIN % CASE 0 76019300 
be AB OUP sSTRINGsERRCOR? ee P 88, 01 0 ee a eee 
IF NOT CONTINUEBIT THEN % FIRST CALL ON THE ROUTINE 76019500 
@ r BEGIN si ghar ase Cong CONTINUEBIT?:S7TRUES PREVss"43 ENDS 76919600 
BF ] R = BA Q 34 THEN 2. NOT ENOUGH ROOM KOZ OQOUUU 
we BEGIN CLEARSTACKCSTACKLBASE42)91512)3 76019800 
i GOERRC"™NO ROOM"sMSGVAL)3 76019900 
P ND oh a et a a 
ig LADRItsADDRESSCWORK(1])3 % ADDRESS OF INPUT RECORD 76020100 
Or SETVOCABCVOCAB)3 vsIZt=ias & SET UP VOCABULARY 76020200 
ia AROADR NBA 5 OCA N RB NINES AND ARROW -$(%?6020300 
LOUP: % START OF SYNTAX CHECK 76020400 
@ TYPE $=SPECSCAN(IADR» OADR» SIZ# VOCAB VSIZ+WHIC het TOGs WORKENDADRS)S%SNTX 76020500 
; M PIR = M fA " aeat hia N NN a A) A MeN 7402 Q4600_ Said tata hs ite wie gece nS 
IF TYPE#1 THEN % AN "INSTRUCTION" 76020700 
@» BEGIN iF WHICH LSS 2 THEN & "FIND OR REPLACE” 76020800 
9 ND+REP NI 0 RROR RE DUNDAN 76020900 Came 
IF WHICH=0 THEN IF FREP= 1 THEN GO ERROR ELSE FNDt=1 76021000 
¢ ELSE % WHICH = 4 76021100 
B N REP¢s Pt=ij ENDS —______ 76021200 7 = 
FRST?=O3 LIT&#03 OKis03 76021300 
@ END & IF WHITH LSS 2 | 76021400 
. 6 ' wEFIRSTY,& CFRAL 2 Hy 1" OR WARROWN 50 SOQ _ 
. BEGIN IF REP 4FAND NEQ 1 THEN GU ERRORS 76021600 
@ IF WHICH LSS 4 THEN & "FIRST" UR "LITERAL" 76021700 
__BEGIN IF STRGCNT NEQ O THEN GO TO ERRORS BOD 7 
“0 IF WHICH®2 THEN IF FRST31 THEN GO TO ERRUR ELSE FRST#*1 76021900 
@} ELSE IF LITs1 THEN GO TO ERROR ELSE LITI#1; 76022000 
ND PRO PS1O 6 ©, ste Pet te ee 
ELSE IF WHICHS4 THEN go ro LoUP % "WITH" COPTIONAL WORD ) 76022200 
@; ELSE WHICH # 5 (¢ "ARO" ) 76022300 
B4 5IN OADR’ sAROADR SIZizel3 ee ee ae 
NG Z IF WHICH = 5. | 76022500 
oF wa END % IF WHICH LSS 6 eee oF cag 76022600 
@ 
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sf GS 2 SREESERES LR 


BEGIN IF PRNT=1 THEN GO TO ERRORS PRNit&S13 TEXT8=0s 3EQ8203 
END % IF Dee =z 6 
™ . ee Alf) ee 
BEGIN OADRISENDADR} S1Zt88s TYPEIs3s gO TO STRING! 
END X IF WHICHS7 | 
} i NE @ Oo AND: ia aa Yj He Ni - FRRGR 
ELSE IF dntonee THEN SEQ 35 1 
ELSE IF WHICH=9 THEN TEXT3= 1 
WH Hal al N 4% NSTR LION 
BEGIN IF FREPS1 THEN GO ERROR) FTOGE=43 
IF Gee ANDO sane THEN rN ivtal 
ELSE GO TO ERROR} a To0 MANY FILES SPECIFIED 
ENO % IF WHICH =s 10 
emnwrarmee: 35/W0t. 1 29a ees = 
ELSE IF WHICH LEQ 1? THEN 
BEGIN cen date ta Ns Re 
$1 is 
GQ TQ STRINGS 
END} 
0 Q alel: 
END % IF TYPE=1 
ELSE IF TYPE LSS 5 THEN % A STRING OR SEQUENCE NUMBER 
BEGIN IF TYPE=2 THEN % A STRING 
BEGIN IF FND*#REP NEQ 1 THEN GU TO ERRORS 
BEGIN STRGCNT8*STRGCNT + 43 
IF {51230 AND STRGGNT SS THEN GO iis ERROR: 
= OR A STRING 
IF STRGCNT=2 THEN *@ HAVE BOTH OLD AND NEW STRINGS 
BEGIN oe STRGCNT 803 QK8s1s ENDS 
NO % RIA 
ELSE OkKe=i3 x IF A “WE IND™ STRING 
END 2 TF TYPE ws 2 
i NUMBER PEs 3 OR 
BEGIN. XtacNVERTCOADRs $123 
IF x Lee PREV THEN GO TQ ERROK ELSE PREVi=sXxX3 % CHECK NUMBER 
ND Q NOs 
XtaTSIz * “SIZ + 43 & TOTAL NOs OF CHARACTERS TO BE ADDED 
IF X GTR 230 THEN % NOT ENOUGH ROOM 
+ ae 


GOERRC"TOCLONG"»MSGVAL )3 


Bs FOG ai i 


76022800 
76022900 
46023000 
76023400 
76923200 
mon? OG 
76023400 
76023405 


pe caemeen aremrccmes £01.” 7-4 [SU © Sere er eee te nee 


76023415 
76023420 


76023430 
76023435 
76023450 - 
76023460 


76023480 
76923490 
AQ0-¢ O10. Oot eN o te  o8 e, 
76023600 
76023700 
: r " S300) aE eR nk ee ea ee 
76924000 
76024200 
76924210 
60 2 a DOES OIE 
76024400 
76024500 


76024700 
76024800 
H0249000 a 


76025000 
76925100 
60 O00 
76025300 
76025400 


76025600 
END & IF X GTR 230 76925700 
A ACK(LBASE J TZsQADRe Si dsTyPEsXxds ¥ ORE STRING = 74025800 
GO TO LOOPS - | F 76025900 
END % IF Tue LSS 5 : 76926000 
YP AEN 4 ONTINU ATO; NAR A wR A i ARROW 6026100 F Doeater eee Se 
BEGIN TEMP az 323 WALTFOR t= VINPUT3 76926200 
IF SCHEDUL INE ye) REQUESTIP(LLJ4 GO TO EXIT» 76026210 
- 69026300 
ELSE IF TYPE = 6 "THEN % CALL QUT THE perenne 769026400 
BEGIN 76026500 
ONTINUEE t= FALSE . 76926600 
IF SOURCEFILE20 AND INFIL= 8] THEN 769026610 
BEGIN CLEARSTACKCSTACKCBASE+2)*TSI12Z)3 GOERRC "NO FILE*+MSGVAL D3 76026620 
D 3 76926630 
TEMP te 33 ahs 76026700 
ae a SOOLEANCOK) THen ee 76026800 
m4 ACKCSTACK( BASE +2 49 TS12) i 76026900 


o onw~ mom TF F WwW DH = 


i=} 


= 
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@® @eee@eeeeeesteeséseeeeeeeeee ®e 
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A Th 


BBE SESE SES 


eo oN 2 


oo 


i PR A Ee ree aE HA A mt tie ts @ 8 Sapien. rela a acca 


GOERRC"INCOMPL"»MSGVAL)3 76027000 
END} 76027100 @ 
e 923 76027200 eae area eee ee 
MOVE(30> WORDS» STACKCBASE+1],5 WURK(IQOI])3 76027300 
Oe net cere tae 76027400 
RASE+2 SIZ)3 pROmen eens’ 2-119 554i 100 9 eee eee IE 
IF TROOUNG NEG 0 THEN 76927600 
BEGIN 76027700 
0 WW  »NOCR j oe a ee PRO OT BOO 
DOING t= 43 76027900 
WANT %@ VUPDATES3 : 76028000 
0 TO a SP BOB BOO te 
END 76028200 
ELSE GO TO CASELS3 76028300 
a S760 2B U0 Oe 3 ok ee 
ELSE IF TYPE#7 THEN % FILE NAME 76028410 
BEGIN 76028415 
Xx 33 TSIZ + SJZ + 43 % NO OF CHARACTERS TO SE AaNDFD ss BBO 
IF X GTR 230 THEN % NOT ENQUGH ROOM 76028425 
BEGIN CLEARSTACK(STACK([BASE+2J)*TSI2Z)5 CONTINUEBITs=FALSES 76028430 
ie Fee or ee FB eth Sethe Masts 
END %& IF xX GTR 230 76028440 
ELSE SAVETTCSTACKCBASEI» Reece ee 76028445 
GO TO LOOP; 76028455 
END % IF TYPE = 7 769028460 
E iM IN A a at 8 ee he PA PN OO ce ee A tt 
BEGIN 76028600 
MSGPTR t* MSGVAL + TYPE = 93 76028700 
PROP ? 4 2 Wa W 6 eee eect ee 
TEMP t= 33 76928900 
See ere okt ce oes ede ioley? 76029000 
A A Foe PAO OO Oe pee eo 
GOERRCERRVALUE(OADR)»MSGPTR)} 76029200 
END IF AN ERROR; 76929300 
ND p O03 G0294U00 ooo 
BEGIN &% CASE 4 76029500 
CASE, 76929600 
ARCWORKIOG 9 HV29G7TOO 
WORKCOJ&SESP23 76029800 
WORKC3I2SMAKEFNC™{S*eLL 3 76029900 
WORK SBWORKIO6IESUSER DES 40 OOO 
WORK(5]&8=SOURCEFILEs 76930100 
WORKL7] = FILETYPEs % CHECK FOR TYPE CATA FILES 76030150 
RUNLtZIF BOOLEANCFND) THEN "FINU " ELSE "REPLACE™S ss 76090200 pide ceta Sts Bee, 
RUN2$2IF BOOLEANCFNO) THEN "DISK " ELSE “CANDE “3 76030300 
SA alana 76030400 
DISKWR a HOROSOOUU 
IF SDeLEAN GENS: THEN 760030600 
BEGIN 76030700 
TAMtavDISPATCHS COMMONVALUE 33E SP13 TOUTC™WAIT "sNOCRLF)s = 76030730 — a 
END : 769030720 
ELSE 76030730 
BEGIN 76030740 ets 
WANT $3VDISPATCHSDOING?=23 IF NOT CONCISE THEN LITOUTC™WAIT.e "91)%76030750 
END; 76030760 
MSG : NO STERISK EF 00 eee ee ae 
% VOID ia 76030900 


GO TO EXIT? | 76031000 
END CASE 13 dle AO Gayle aieed ti te en PeO sag 
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Ayes Ky Ry TH R5 Ry 5 


2 3 a a 


BEGIN % CASE 2 76031200 
LABEL DUMMY; 76031210 ¢ 
I MMON ? = Q HEN 2 NORMA 0 a1300 ss ere oe aS en i Bee 
BEGIN 76031400 : 
IF BOOLEANCFREP) THE 76031500 | |@ 
M y ne 76Q31400 ss 3 
BEGIN 76031700 ‘ 
SQURCEFILE t= MAKEFNC"1S"sLL)3 76031800 |@ 
= : peers) 2c E1010 EERE ae a ce 8 
CANCELCKPYCAL#))3 76032000 1e 
END3 76032100 2 
WR A RISKEZTR FO932200 : 
END % IF EOY OK 76032300 Cl 
Eker 76032400 dhe 
R N. 2 RROR ) Seca aS Rae Os Oa eee ee 2 cv basher eo ae weet 
IF SCHEDULINE AND BOOLEANCFREP) AND NOT NOSTUP THEN SCHEDERROR3 76032600 "3 
LINECLEARCLCWsACL#I)3 76032700 4@ 
MSGPTR ss M Ai - 7276037800... = ba 
WRITEASTERISK t= FALSE3 76032900 a 
END * % IF ERROR EOU 76033000 |@ 
AM f= WAN = Ww OR s= QO: : vis SB fas ncaa 1D as Se ag on ee Se Pun NIE 
END CASE 23 76033200 1@ 
END ALL CASES; 76033300 Bi 
mee Bay 2720 177 a ep aeeO P e e ai 
END PROCEDURE REPLACIT3 76033500 5 e 
JUGS ISI IIIS ISIS III OI IOI IOS ISG itt tik #4#590016000 ial 
PR D is 9OOV7OOO 0 8, ise espe ee Tn A SES ot ce 24 
JU EGCEICIIESISIEIIIGI IOI AIUICISIISEISIGITISI ISIS IUIGI SII IO OOS OI ODI EI Rit 8390018000 7 
BOOLEAN LOW; 90019000 @ 
. h GPOUSZOHOH ere ai ea 
DEF INE CTR = (326) #, USEDORGPEN C1236) #; 90021000 1@ 
C 


REAL STREAM PROCEDURE 


BITNUMBER (T)3 


90022000 


A T_T noganog fe 


BEGIN 90024000 1@ 
LABEL L3 90025000 a 
ae Sits T = Si+23 6 a ee ee : 
6CIF SCB """ THEN BEGIN SIt=S] +413 TALLYS=TALLY+63 END 90027000 ‘ 

ELSE 90028000 1@ 
7 N KIP Yss Y+13 90029000 < 
ELSE . 90030000 , Fa 

JUMP BUT 2 T0.L))3 90031000 2 @ 


: Tt tz T Y 900: Seed icy Miia wt ee SA = 


END STREAM} 90033000 1@ 

% 90034000 a1 

REAL _ LINKe Ws TsSs 90035000 ed - 42 

S t= TOBECONTROL; 90036000 4 
TOBECONTROL,USEDOROPENt# RCBC Wt TUBECONTROL.»USEDOROPEN) 90037000 4@ 

OR NOT BCT&2R(NOT BCW+1) OR B(W))))5 909038000 bi 

IF LINKt= 35 = BITNUMBER (1) LSS O THEN 90039000 A 
BEGIN 90040000 «| @] 

LITOUTC"NUTDUNE"*CRLF)4 TOBECONTRUL t= $3 90041000, = _ a 

END IF NOTREMEMBERED ELSE 90042000 as 
BEGIN . 90043000 s @ 

_THINGSTODO 53 BCW %* RCTHINGSTODO) + 193 90044000 = sy 

IF W GTR 1 THEN TOBEDONECRCTHINGSLAST )#0),CTR t= LINKS 90045000 5 
TOBEBONECLINKsO) $3 T&@LINK(C424038)3 90046000 x] @ 

THINGSLASTt= BCLINK)3 | 90047000, 5 

IF Wom 1 THEN THINGSLINKt® BCLINK)& | 900468000 oe ta 55 
MOVE. C15 WOROS*WORK(OJ]*TOBEDONELL INKs4))3 90049000 3 oe? aos aie cd @ 

MOVE CS | 90050000 7 6 


SeWORDSsEVENTSLO)» TOBEDONELLINKs16))3 


oo n~ @ TO FF wn = 


= ao 
yo o> oO 


= 
> 


a 
cal 


=. ~ = 
i=} ho _ So Oo wo sy 
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eo e s—+ ——z SW ss ea 


oS 


a 
a 


(Ge 3 


A ee ee 


INC(CTOBECONTROL,CTR)3 90051000 
IF TOBECONTROL+CIRK GTK 20 THER WECANUSEDATA t= FALSE3 90052000 
ND REMEMBERED; Date ee he IOUS SOOO 
END OF REMEMBERTHIS3 - 90054000 
BIO IIIIIIIIII I ISIIISIIIIIIO ISI IDOI III IOIIOD rion i eiiions its tS 90055000 
PRC OUR al MLA O00 No» A BOO We ARR A af 0 90056000 
RONEN EEE EEE REAR AREER RENEE HENNA ENE EHR ASHER HERA HEHEHE ERE ELIOUSZOOO 
BEGIN 90058000 
DEF IN R = 26] # SEDORUPEN & : 90059000 
REAL LINKs We The IT» COUNTs LCUUNT» LMAX3 90060000 
LABEL AGATA» ae: 90061000 
ONO) 2 eet OOO BEE OG ne ea 
AGAIN: COUNT sel COUNTS 1D 90062000 
TL iz SU nee tues mine 90063000 
K tsk K 2 DECB HIN TORY): i Stee ee er POO 8 HO00 -: pict te On le aa BS tne ee 
THINGSLINKt=B(13=(WISTOBEDONELLINK201), CTR)3 90065000 
TOBECONTROL.USEDOROPENS= &% TURN OFF THE BIT FOR ROWLLINK) 590066000 
MOVE C15sWORDSs TOBEDONECLINKsGCLJ»wURKLOJ)3 900608000 
MOVE CO5+WORDS* TOBEDONELL INK? 16)» EVENTS£OI03 90069000 
EVENTREASON=VEQUATE THEN 90069015 
BEGIN 90069020 
aC POST rm em o te iste eo 
COUNT 2= CWORK(OJ"1),03929)3 90069040 
WORKENDADRS 22 ( WURKAURS+COUNT eC a0s 5] I&CUUNTE 308 4583)8 90069050 
a ee Nac ig ee ee Fe IO OU A GOW Goer te sa Bs 
DECRCTOBECONTROL.«CTR)3 90070000. 
IF TOBECONTROL «CTR LEG 20 THEN WECANUSEDATA $= TRUE3 90071000 
IF SAVEQOWHILEINIV BUSY THEN 90073000 
BEGIN & aa THAT a FIRST, 90074000 
REA GR REAS wA 55CW WWA 75 si al tel tie, te aL 
THEN SAVEDWAILETNITAUSY i= FALSE ELSE 90076000 
BEGIN % THIS ISNT IT, 90077000 
—____IF LCOUNT GTR LMAX THEN 0 0 UU 9NT 7100 = 
BEGIN 90077200 
REASONS =VERRORS ERROWS="SYS,ZERK"3 BUSYLINES=FALSES 90077300 
LINECLL»>MSGPTRLOCI]3%283 % TASK WAS DISCONTINUED 90077400 anes 
GO TO ExiT3 90077500 
END} 90077600 
REMEMBER Wd 2 90 AGAIN; 90078000  — ee, 
ENDS 909079000 
WHILE I NEQ TL OU 90080000 
t=TOBEDON eié [1837 5 N 909081000 aM Pe et 
OR W ® WAITINGSCH, SCWWALTBITS THEN 90082000 
BEGIN 90083000 
AVEOWHILEINITBUSYI=TRUES GO 90084000 = = 
END ELSE ITt=TOBEDONELI20).,CTRs 90085000 
a IF SAVEDWHILEINITBUSYS 90086000 
EXIT! Q METHINGTO 909087000 BS Siete ae 
fastatssneastuteiseasvansevenenasyactovessusanaevsvssaausessv+setess##0%90080000 
PROCEDURE FINISHED (LCWs Ad} BOOLEAN LCWS ARRAY aco)3 90089000 
LERALASAAARE REELS E TESLA EARLE ELECTR LE ELE ERE LE LE LILELTLCLE TTT TS #¥e490090000 
BEGIN 90091000 
LABEL RESTRT», EXIT3 90091100 
9009 ora rae Sweetie 
STREAM PROCEDURE PLSLOGOFECHORK)} 90091300 
wae (DIFSsWORK3 : ; 90091400 
Oli a HED OTM iF PLEASE G f ft ONONVtENO 
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a a 


ecOG3000. = 


Ww * h wf") DADA 
mE A ol a WaW Bia 


90 rele 


DSts17LIT"SOON AS PCSSIBLE."3 900491600 
ENO PLSLOGOFFS3 90091700 
z 900 R00 
STREAM PROCEDURE TELLHIMBYECWORK)? 90091900 
BEGIN DI#=WORK3 | 90092000 
OR = R HED 
Ds 1e23L iT" We MUST DISCONNECT (us 90092200 
END TELLHIMBYE; 90092300 
i I AO ita ila a A A Mth Bi Bihan a A I A A at 2 
BOOLEAN STREAM PROCEDURE TIMEQK(NsA)3 VALUE No AS 90992500 
BEGIN ST#*L0c AS ieeet aes NCSKIP SB); 90092600 
y ME OK £2 TA Bane .. 9OO987OO eae 
ENO TIMEOK3 90092800 
LTR LETT CAT CR OTC LETT ECR EOC T EE CR CT eC PCRS Eee ee eee ee eT eae errr res 
IF BOOLEANCTIMERESTRICTBIT) THEN % USER HAS RESTRICTED TIME PERIOD 909093400 
a NOT TIMEOKCENTIERCTIMENOWSSTIMEC1 14216000 )*TIMELIMITS) THEN 90093200 
BEGIN PLSLOGOFFCWORK)$ TWXQUTCLL®WORK(UJ26222)35 90093400 
NOTIFYBIT &@ REALCTRUE)S NOTIFYSTIME t= TIMENUWS END 90093500 
E a a aaa a ee ee IO BE cn: 
BEGIN IF TIMENOW = NOTIFYTIME GTR GRACEPERIOD THEN 90093600 
BEGIN peer ee TURGUT EER S MORK EOE FOP e0F eee 90093700 
iN AR AC AC BA = $ A NDZSGOO93BOO en 
IF INITIATEDMHILEBUSY THEN 90094000 
BEGIN 90095000 
Saree een) a 2 Wi —————--- PONG 6000...... 
ELSE WAITINGSCW.SCWWAITBITS 35 90097000 
INITIATEDWHILEBUSY 3s= BOOLEANCLLINFOts0)5 90998000 
AVE DWE NITRUSY THEN GO R 90099000 0 
END3 90100000 
BUSYLINE t= FALSE; 90101000 
Fa aaa a ic RP i a sta 
% vOIO 90103000 
IF REAL CTHINGSTODO) = 0 THEN 90104000 
B 90 
ALLMGPMSG t= FALSE} 90106000 
LIBMSGCTR 3s 03 90107000 
F SCHEDULINE THEN REQUESTIP ) 90107100 
ELSE 90107200 
IF WRITEASTERISK THEN 90108000 
Wt Ge: 2ASTORe 121) 90109 
WRITEASTERISK2=F ALSEs GO EXIT} 90110000 
END3 90111000 
QOMMENTS METHING HAS BEEN REMEMBE REDS _ 90142000 
RESTRT! RESTARTNEEDED %= TRUES ~~ 90113000 
GETSOMETHINGTODOCLCWs Ala) 5 90114000 
ND 90 000 
90116000 
Fo eR III II IOI III IOI Os io ton ke kta 390117000 
DEF IN BUILDSCW =SCWLSORWAITFORI1L0841 $7I&PREVRCWLI7S4 O28) &BASE 9011800 
Pree anes nes anes ore enwene gras 90119000 
#; 90120000 
DEF N H DPRCW FRCWERS sR. 4G 4 is, . 901. DOO 
Sie aN GOUING PostuTir ie taantoiaoTe yest seni 90122000 
#3 90123000 
DEF IA ORERCW SALPREVHCWSESCWPREV"] ]3= 90124000 _ 
og | : 90125000 
DEFINE  RECALLRCWRBEGIN RCW SaATPREVROWS SSCWPREV IE 90126000 
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a 
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oS 
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TEMP pone WIEN? 3 90128000 
BASE FRCWBASE 3 90129000 
Z ING :sacepoIngs tng 
1AM teRCWIAM & 90131000 
SREG t#RCWSREG3 90132000 
iS Les Ssh Sy ole ER Eg PN a a a OO OOS es Ge 
WANT T=WATTFOREF05 90134000 
END OF RECALLRCW #3 90135000 
PA on in eS ee O96 00 0 ce a cat ae 

% 90137000 


EEE LECT CETTE EE OCTET TT EET See Te O ET eT eee eT Perro rem ArT Ter ey 7 


BOOLEAN PROCEDURE ANOTHERGPERATION (iCwe, ADS 0 OR BVOOD 


ee ee II I III I TOI I III III II II III ICIS ite tet at 690140000 


BOOLEAN LOW; 90141000 
ARRAY ALO}3 sate DOU BO O00 hoa ah a te) 
BEGIN 90143000 
LABEL Lis 90144000 
ces oe TF JAM NEQ O THEN dO. te ere atch eee eee oes 
Lit BEGIN COMMENT THIS PROCEDURE wILL BE RECALLEDS 901446000 
BUILDRCWS STORERCW3 90147000 
peekenoes _ENO &% PROCFOURE ITS NOW TOLE AND CAN BPE RESTARTED; 2 hecteee yeh ate et Seat ec ec 
90149000 
90150000 
ont as oe OO SOO Oe tr oo ses ea hse snes 
TAM = wANT3 90152000 
BLUILDSCHs 90153000 
Reena ede cane! _IF_ WANT NEQ O THey 0 HOOD 
BEGIN COMMENT A NEW PROCEUVURE IS TO BE GIVEN CONTROL3 90155000 
A CBASE)] t= PARAM; 90156000 
DOING im WAN = 03 YW) a eae ee 
END TME NEW PROCEDURE IS NGW READY TO BE CALLED; 90158000 
TEMP ts PARAM ts OF 90159000 
a O01 O00 0 a eh 
BEGIN COMMENT WE MUST WAIT BEFORE THIS LINE CAN CONTINUE} 90161000 
IF IAM NEQ QO THEN GO TO Lis COMMENT MAKE LINE IOLES 90162000 ; 
pe GOTH I NNO it es 
WAITINGSCH $= OCW; 90164000 
END LINE WILL NOW WAIT UN EVENTQUE 90165000 
BEGIN COMMENT NO WAIT IS REQUIREDS 90167000 
IF CANOTHERQOPERATION 3% NGT ALLDONE) AND TAM EQL O THEN 90168000 
RB N UM MEN RX R awh NFO) 901469000 eee a tres te, 
RECALLRCW3 WAITINGSCWt=BUILDSCNS 90170000 
END WE CAN NOW RETURN TU THE LaST UNFINISHED PROCEDURE} 90171000 
——ENO JTF LINE O10 NOT HAVE TC WAIT; a -QO1L72000.. say 4 ed GR Ee ee 
END OF ANOTHEROPERATIONS 90173000 


REWRGEHRRERREEEREEERE EEE EEE TERE EEHAN TAREE ANNE DETR EDEN EE EN EEE ER EHEIOIZAQOO 
PRO 41) ry em ONT Pd e : 
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BOOLEAN LCW3 90177000 
ARRA i ae UN ee Ds 5 a tT PAO Steed obey 
BEGIN 90179000 
LABEL RESTARTs AGAINs EXITS 90180000 
90181000 
TAM t= wANT t= WAJTFOR &= TEMP 83 PARAM te QO} 90182000 
ALLOGNE 35 FALSE> 90183000 
RESTARTNEEDED & 5 FALSES se se SOOT BANOO OE 
IF WAITINGSCW,SCWWAITBITS & REASON ’ 90185000 
“OR WATTINGSCH, ROMAR LTS ITS * RCONOT FALSE). £4137) 90186000 
TREN ; oe ee : FOLBFOO0 


e q 
BEGIN COMMENTS SOMEUNE IS WAITING FOR TRIS EVENT: 90188000 
 ) SCW $= WAITINGSCWS 90189000 « 
- H . 9O1S000G a 

PREVRCW !8 SCWPREVS 90191000 ; 

@ END 90192000 4 
BEGIN COMMENT? WE WERE NOT WAITING FOR IT S03 90194000 : 

e WANT t= REASONS 90195000 5|@ 
— : Se i he TOOT ADO AY sc alee cng Soe to res, 6 
BEGIN COMMENT? MUST BE A NEW EVENT FOR THIS LINES 90197000 ? 

@ IF NOT LOGGEDUN THEN 90198000 |@ 
901990 ° 
CHARGEt= "13 90201000 be 

@ END LOGGING ON THE SYSTEM; 90202000 @ 
ecetsts. ; Et: ; SeP tate ian: 90203000 "2 
BASE $@ SBASE3 90204000 19 

& PREVRCW t= LLWORDS3 90205000 @ 
——END OW zoso0g "9 
ELSE 90207000 16 

@r BEGIN 90208000 /@ 
F_REASONSVTEACHER THEN % DONT PERMIT IPL INQUIRIES 90208100 > Ms 
IF INQUIRY THEN GO EXIT ELSE INQUIRY t= TRUES 90208200 ‘ai 

 ] IF REASON LSS VINPUT AND NOT INITIATEDWHILEBUSY THEN 90209000 29 @ 
An = ¥ 2 8 09 V0 0 SRO nee Onn ai nT ODE eee ae a 

P INITIATEOWHILEBUSY t= TRUES 90211000 e 
@; LLINFO t= SCW t= WAITINGSCW3 90212000 is 
set Retire oa = , ; QO!LAOOO cece boven oat 3d, ere 24 

P PREVRCW ts SCWPREV = 13 90214000 ; e 
Or END 90215000 fi 
. Sed cite agg ’ 

Core BEGIN 90217000 1@ 
2OF IF RCTHINGSTODO) GTR 2 THEN 90218000 : 
8 ' eae Oh a ts ; 

: LITOUTC"NOTDONE"*CRLF)3 90220000 ‘le 
&@ END ELSE . 90221000 ig 
az 90222000 33 
REMEMBERTHIS (LCW)3 90223000 

@ IF REASON = LLINFOsSCWWAITBITS 90224000 3@ 
22: ; H is TRURs 90225000 i 
END IF REMEMBEREDS 90226000 a7 

@» GO EXIT; 90227000 1@ 
ENO REASONS gn a : nuseieade 
END IOLE OR NOTS 90229000 40 
e BUILDSCNWS 90230000 a 
ACPREVRCW] $= BUILDRCHS 90231000... se “i 

END WAITING OR NOT3 ; 90232000 e 
@ 4 Fe ROR eRe R eRe RCRA e RRR T CRONE ROR CRE RNR RRO n Omens enenn we weannen mann (233000 a4 
N ; Sete Se wei 4 en a 25 
IF NOT ANOTHEROPERATIUN (LCWs AC*]) THEN GO EXIT? 90235000 ae 

@ COMMENT? IF WE GUT TO HERE IT MEANS THERE IS SOMETHING 90236000 |] 
_— AT CAN BE INI FOR THIS LINE NOW 90237000 ‘8 
"IAM" IS SET TO THE CASE VALUE WHICH WILL CALL90238000 4s 

@r OUT THE APPROPRIATE PROCEDURE» SG* LETS TRYIT3 90239000 @ 
AM 90240000 Sy 
; BEGIN 90241000 5 

@: FINISHEDC(LCWs AL*1)5% UO = LAST THING DONE ON LINE. 90242000 «| @ 
i HER CWeAC*])5 & O01 = DTA P 90243000 54 
BRE AK CLCWsAC#))3 ® 02 = BREAK OCCURRED, 90244000 56 

@ |: WRU CLOWsAC#I)3 % 03-* WHO ARE YOU RECO. 90245000 @ 
NECLEARCLCWsAL*) 23% 04 = CLEAR LINE AFTER.02 OR.O3 90246000 s 

@ @ @® 
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e @ 
DISKCHUNKS % 05 = NEW CHUNK OF DISK, 90247000 
r) DISCONNECT<LCWs A )3 £06 = DISCONNECT GECUARED» 90248000 é 
ATACLCWsAL*])3% U7 = INFUT DATA iR_B 249 an 
f BEGIN % 08 = BREAK FN SnEO 90250000 
@» MSGPTR S18}. % 1 AM THE GENIE eee 90250100 
3 ab RieO3 90750200 om 
‘ END BREAKCLEAR3 90250300 
@ |: RESTARTITCLONs AC*I)3 & 09 = AFTER H/L SAVE WRKFILE 90251000 
6 4M 3 my ORis hj 33 = MC ON252000 
i MAKEDATES % 11 = DATE CHANGED, 90253000 
& : HITHERECLCWsAL#})3 % 12 CRETURN FROM NEWS/CANDE FIND) 90254000 
19 : MCPMSGCLCW»AC#])5  % 14 = HANDLES MCP MESSAGES ABOUT yous90256000...~~ 
eo COOLITCAL*I)3 15 90257000 
~~ ee CALLCNOTUSED)3 e417 = 90259000 
e CALL CNOTUSED)3 218° 90260000 
ae Sr OC Sa OO POU O00 
p68 CALLCNCTUSED)3 % 20 - 90262000 
@ re CALLCNOTUSED)3 &21- 90263000 
Ee oe ne meneye of WIRE doy UL. 0 at tw © cee ROO > See ee Dare acer ETI < ey (5; Cen ee 
wld CALL (NOTUSED)3 %239 90265000 
@* CALLCNOTUSED)3 % 24° 90266000 
fe reeds ne — * H Led ‘ a eS ee ee ee 
2 INPUTCLCWsAC*] +WORKCLIJ*EVENTSLIJ»EVENTSC3])% & USER INPUT 90268000 
DISPATCH(LCWs AL*I)3 % 27 - FIRES UP RUNNERS, 90269000 
ae ie CALL (NOTUSED)3 % 29 = 90271000 
OOPSCLCHeAL #13 % 30 = ERK DURING SCAN 90272000 
va A b : » OD A N27 32000 stern haf ae RA 
COMPILEIT(LCH» AL*1)3 % 32 - COMPILE IT. 90274000 
SETUPFILES(LCWPAL#))3 % 33°" SET UP ON HELLO 90275000 
* - SE a SS is castes 
CLOSEWORKTABLE(LCWsAL#I)3% 35 = TO MAKE SURE TABLE IS TIDY90277000 
CHNGPSWDCLCWs AL #3 * 36 - CHANGE PASSWORD 90278000 
fae RTS SY IEE * = eee cee ee 
CARRIAGEC(LCWsAL 41 )3 %® 38 > CARRIAGE CONTROL. 90280000 
CHNGNAMECLCWeAC 1 )3 %¥ 39 = CRANGENAME 90281000 
be MON RR we AL] )5 * 40 = 28% =e 
ie SETITCLCWSAL¥))3 % 41 6 "SET" @ YRESET" 90283000 
@ = SSFILECLCWsAL*))3 % 42 TRANSMIT FILE 90284000 
eee = : AL 4 pid een 
STATUSCHECK(LCWsAC*])3  %& 44 = STATUS OF RUNNING JOB 90286000 
@ i CALLONGTUSED)3 445 5 90287000 
2 __CALLCNOTUSED)3 == lk wo POA2BBOOD 
3 CALLCNOTUSED)3 % 47 - : 90289000 
@ | CALLCNOTUSED)3 % 48 = : 90290000 
. j x - ; aoe 
? BEGIN % 50 # SEND SS MSGS 90292000 
@. MOVE (4+WORDSsEVENTSLIJsWORKLLOI)S 90293000 
TWXOUTCLL*WORKLO]>11202¢)3 90294000 _ _ = sees 
IAM $= 63 90295000 
END? 90296000 
POITCLCWsAL #123 % * LIST $ 90297000 ad 
COPYIT (LCW,AL#))3 % 52 = CCPY. 90298000 
SEQCLCWsAL*1)3 % 53 = WANTS SEQ #5, 90299000 
% H $40 pom dae. 90 0000 — 
BYE (LCWeAC#I 23 % 54 * BYE, : 90301000 


MSRERE WE SUECACEY 2 (3 55 © MAKE) oo) 90302000 


CwWe A eee 2.256 =". SEanaase teers eie cress ? : GOsO0 3000 
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0 0 4, * E n Sos = 55 3 ~. . 
> oD g : 5 & a 3 5 Oo g 


EXECUTECLCWsAL#))3 % 57 = RUNSCOMPILE OR EXECUTE 90305000 
LOADIT (LCWs AL*I)3 % 56 = LUAD 90307000 6 
A = A A " FY 9 539 = A 90 SOOO Beccgne a Ratner nM Seth on ot Oy oe was 
CALL CNOTUSED)3 % 60 - 90310000 ; : 
REMOVE (LCWs AL¥))3 % 61° REMOVE 90312000 1@ 
RANGE We A t 6 « MAN : 90 O00 _—sy. 2 
RENAMEIT (CLCWs AL*#])5 & 63 7 RENAME 90314000 ‘e 
WHATSIT (LCWs AL*J)3 % 64 = PRINT FILE TYPE 90315000 ; 
P nN af « ; x 6 = CI 3 pee ee GO SA BOO Oise seen on ees ‘ 
CALLONOTUSED)3 % 66 90317000 : e 
GUARDITCLCWeAC#))3 % 67 = GUARDCMAKE LOCK) 90318000 : 
———___LOCKIT(C, CWeafe})s sdk 6B = LOCK OR UNLOCK UU gai g9nn ; 
TAPEITCLCWsAL4))3 % 69 * PAPER TAPE 90320000 1@ 
LISTITCLCWs Ale) )3 zk 70 = PRINTCNO HOING) 90321000 Fo 
SCHEDULE(LCWs ACH] 3° % 72° > SCHEDULE A TASK, 90322100 ‘e 
SCHEOSTATUS(LCWeAL*] D3 % 73 * SCHED STATUS/STOP 90322200 if 
UPDATECLCWsAL*))3 % 75 = UPDATE WORK FILE 90322400 e 
REPLACEITCLCHs A c¥1)5 2 76° REPLACEMENT ROUTINE 90322500 ” 
ND HT Mie : N 0 OOS OOO ore le Ts tg Nn a teh a ee a I 
iF RESTARTNEEDED THEN GO RESTART ELSE GO AGAIN} 90324000 1@ 
EXIT! 90325000 c 
kc EE NDS 2 a a ct ee ee OO AIR OOO ce, 5. oe Sis el ee a 
BH fe ek tek te te te a aR KR K RK KHEERKEKR ERK EEKEKAE 90327000 a 
PROCEDURE RUNCANDE3 90328000 Bl 
Fate se ee te te ee dee Ae ee I ee te tee ORT ae tee eae tee ee ete ee OBA GOO i ec ee a 
BEGIN 90330000 l@ 
LABEL | HAVEVENTS 90331000 26 
. BSA Bee a hee De tN \2 
BEGIN 90333000 . 
IF NODATA ANU WECANUSEVATA THEN 90334000 23 @ 
AR STED THEN PROPS O OO esate 30 
BEGIN . 90336000 a 
REQUESTINPUT C(TTYINPUT [#23 90337000 2 @ 
: NODATAREFQUESTED *s FALSE Pcs oe GOS IAOO Ros : 
ENDS 90339000 
IF TIMETOUKLINES THEN 90339400 a4 @ 
IF MAKE NIT_THEN GC TO HAVyEVENTS ee OG SSIS 00 6 ee ee 36 
WAITBITS*®REALCNODATA); 90340000 . 4 
NEXTEVENT CWAITBITs CLUCK» EVENT L¥I)3 90341000 | 9 @ 
ene N BIT) THEN 9034 Ss ete ee s  e : 36 
BEGIN 90343000 “0 
MOVE (SsNORDSFEVENTLOIZ EVENTS (0])3 90344000 |@ 
t=EVENT ee 990345000. Puen eae 4 
IF REASONS SE VENTREASON = VMCPMSG TREN 90346000 . 4 
% VOID 90347001, | 90347000 4@ 
ug WORDSPEVENTE 4) eWORK([O])3 90348000 i tw 
IF REASON=VHELLO THEN 90348100 : 
IF LINECLL6131+SCwNAl BITS NEQ@ REASON TREN 90348200 hd 
\ 3] := EVENTS 5% TERMINAL TYP 90348300 € “ 
END ELSE BUILOADATAEVENTS | 90349000 a9 
IF LL GTR MAXLINES THEN | | 90350000 s @ 
BEGIN LLt=0s REASON? #133 ENU$ %3BAD LINE NUMBER 90351000 Cie one n Cee AEN 51 
IF REASON®VHELLO AND LUGGINGON THEN 90352000 5 
BEGIN LL?s03 REASON!=133 END; 90353000 «| @ 
HAVEVENTS 90353500, 5 
IF LLPREV NEQ@ LL THEN ; 90354000 55 
a BEGIN COMMENT A DIFFERENT USER 1s GOING TO USE TIMES 90355000 cae «| @ 
“. ‘IF LLRPREV NE@ 0 THEN © 90356000 
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@ 8 
BEGIN COMMENT CHARGE PREV USER FUR HiS TIMES 90357000 
@ LINELCLLPREVsPILOC J PeCLUCK@CLOCKPREV+LINECLLPREV»PTLOC]3 90358000 e 
ND a BE HARG ; O03 59 O00). : 
: LLUPREV8S=LU3 : 90360000 
@ CLOCKPREV?=CLOCK3 90361000 
5 _ 90362000 — 
iy IF REASON NEQ 13 THEN % THROW AWAY #1398AD LUCKe 90363000 
é : HANDLETHISLINECLCWeLIWECLL# #13 90364006 
7 END RUNCANOES 90366000 
@ 8 Betke ke RO III oii ik tiki 0367000 
. PROCE DUR A SANDE | eRe eer Fee rae EL © 9 SCY. Wa of 3 SEN Nate 
iy FTI III III IIIS OI II IIIS IOIIOIGI IIIS III IIIS i ieictent 90367200 
@ b BEGIN LABEL DUMMY3 90367300 
k BEGIN DI$=zCOMM2; 90367410 
@« DSt=8 LITM088 1894 ("5 %¥ 3°0010103110110435"90367420 
ns ees $F oe OF zs ; Le a Oe ets et ad bet Sa? 
"6 SIs=LOC COMM2; SIt3S1+53 pSt=3 CHK; 90367440 
® i END3 | 90367450 
. ——--REAL_STREAM PRUCEOURE ADORESS Cw) $ —________ggje7soo.. eer ee 
ig BEGIN SI#=Ws ADDRESS#sS1% ENDS 90367510 
@ 1 CEEereee ee Tee Tee TCL eT TTT eee EE ET re ee eee Ter ee eee eT eee 90367600 
p2 PRUCEDURE SPOLOGON(LCWsA)$ BUQLEAN LCWS ARRAY ALU]; 90367620 
@ Pa Foe te eet TT III SII TO OIRO IO IO ik tice te 4903967630 
SE 2h C55 0 eee OIE Mea er eee eer Ree toe RD 8130s 19s OT 
P REAL VRBsN3 90367650 
di STREAM PROCEDURE SETBIT(NsWORD)S VALUE NG ——- 90367660 
pe SIt=LUC N3 SIs=SI+63 DI selec nls ee DS:=CHR3 903607680 
@ DISSWORD$ NiCDIt=01+8)3 SKIP N DBS DS?SSETS 90367690 
mM ee ee ee Re ae ae ne Go tites Senta ia ah eae ets 
' 90367710 
Or ESP1 t= GETESPDISK} 90367720 
P ESP2 t= GETESPDISK? —————“—s*s™s™~™~—~—~—~—~—C—C—C“‘(SCCé Ne Tas 
ia USERCODE t= "SPQ "3 90367740 
@ | LOGGEDON t= TRUES 90367750 
6 NECLEAR(LCWPAL*))3 90307760 — a 
‘ FILESOK t= FALSE} 90367770 
dis FILL WORKC#) WITH 4h a. 90367780 
39 | LSEQ t, LO: %, "38 "y “OTAP ts 9036 O0 eae 
> "SPUNCH "» W6CHARGE “s "3SCHEDUL"» SPOSTATUS "s 90367800 
@Ne 4 "4STOP t, "OCC t, “3SET "s "SRESET s 90367810 
’ —ANATIM "so" 7 MONITORS SE patches MOTO LO ZOS. « ab08 Macy oily Caine eee 
“3 “enn FOR VRB ts 0 STEP 1 UNTIL 13 00 | ; 90367830 
Ow BEGIN 90367840 
iz WORK(VRBI3 90367850. 
IF YOUFINDAVERB(N? VERBTABLELOJ» NUMOFVERKS) THEN 90367860 
ow BEGIN 90367870 
6 N tz 939 D) ‘ 90367880 eae a: 
SETBITCN+1> RES?RICTEDVERES?# 90367890 
@» END3 : 90367900 
51 N 3 : , ) ok Be eee ere ls eee, a 
B2 END PROCEDURE SPOLCGON; . 90367920 
O- MAKEDATES : 90368000 
5 OMME A RBTABL EC WORD 61 StU AS A AG FOR 90368010 _ 
BS SCANNER (© FOR "SPECIAL" VERB )3 90368020 
@ &: FILL VERBTABLEL*] WITH ; 90369000. eos 
ef VA Sei Ss ",. 330000000000 00070" & #56 903 0000. | eer 
V 
e@ 


3 
® 
7 el i EAH OO 
f PASAVE " 0200000 
“ ry : , 3" : 00071" F 
e eae " 30000400000000/ 3m» : eae : 
e ¢ ie 
"200 CUTE™s 330001000 ocunnha", 4 283 oe. 
@ " 3" 3000 OOO0007I"» & 0372000 
rie ae "3000100000000071", & #57 _90373000 
j weegue "» 3"30001600 TT" #57 = EXECUTE 90374000- Tepe LE See ait ae Ee 
@| Pe et oc iaeeht oodguore" 90375000 e 
| 2 a hee cake zoooo0000071"» RES8 —-—---9.0.32.6000- 

eae ", 3"3000 : n0075" & #57 90377000...—~—CSO— 1 

e eo RENAME Bo E ponecasensseree: as 90378000 1@ 
eevan " g0000000077" a #62 Sea OSI 9OO0 3 at ; 
baa ™, 3%300032C0 14 90380000 Sab At oe ee 4 

r ar a as mena , 3"300034 poave wor, x Sa oe ea we, a Se |@ 
Pty ame " HODDQUOCCE7™, g& #64 aLSo ; ; 
- 4; Yogeye. ", 3"300040000C <4 #55 ALSO Eee araeee 

6 care a H, 330004 OO00010L"» & 90384000 ‘le 

TEC eREE 3" 20000000066", & #65 90385000. : 
Weneee: "9 3" 300046 ’ ; : an . #54, 90386000 a i 
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